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wie im letzten Heft schon angi 
kundigt, wollen wir speziell i 
0L- und TI-LBBsrn auch weitert 

'he Menge interessante Informs 
tionen bietsn. Beim TI sind at 
diesmal uber 2n Seiten , und ai 
fur dei 



. B s Sen 



■ it. [J as 



auch' in Zjkunft so ble: 
lenn Zuschriften bus der Lesarschaft zeigen, t 
i±t hiier richtig liegen. 



:Uiegenden Hefte anschaffen 
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INHALT 



INHAL TSVERZEICHNIS Bei uns konnen Sie 
mitmachen 




Computer-Kontakt ist die Homccomputerzeitung 
2um Mitmachen. Sic konnen bei uns Programme t-in- 
senden. Blither besprechen, Spiele beschreiben. Tips 
und Tricks schicken, Fragen stellen und I lire Memung 
sagen. Wir haben fiir alles ein uffenes Ohr. Damit wir 
aber Ihre Einsendung schncll bcarbciten konnen und 
alles mit rechten Dinger zugeht. miissen Sie folgende 
Punkte beach ten: 



2. (.ieben Sit genau an. wek-hi/s GcrSi Sic haben. 

Liluft das Programm nur mit Speichererweiterun- 

-^ gen Oder Zusatzgeraten. miissen diese unbediugl 

— angegeben werden. 





3. Zu iedem Programm soilie eine Prugramml 
schreibung bcilicgcu. Diesc kaun mit der Schre 
msschinc- Oder mil cinem Drucker geSchriefc 
sein. Der Zeilenabstand muB 2 Zeik-n bctragi 
damit noch Korrekturen oder Anmerkungen eini 
fiigt werden konnen. 

4. Zu jedem Programm gehcirl grundsatzlich ein I 
sling und eine Cassette odcr Diskette. Wenn Sie 
abcrkeinen Drucker haben, reicht auch der Daten 
trager. Speichem Sie zur Sicherheit das Programm 
zweimal ab. Cassetten und Disketten kiinnen 
nurzuriicksenden, wenn Riickporlo bciliegi 



■ - ■ 



werden. 
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■ir ein Programm von Ihnen abdrucken. ver- 
ir ein Honorar fiir den einmaligen Abdruck 
NuLzung des Programms in unserem Cas- 
;, Die Hiihe des Honorars riclitet sich 
nach der Lange und Qua lit at des Programms. Wir 
vcrsLiien im allgenidnen bis zu 30U DM. fiir sehr 

'. Mil dei F.iiisendung gibl del Ve miser die Zustnu 
mung zum Abdruck und erklart, daB er Urhebei 
der Teste und Programme is! und das 
schrankte Nutzungsrecht daran besirzt. Snllic 



kern I liieberrecht und ki 



, Nutzungsrs 



a denen 



Die nachste Ausgabe 

"Computer Kontakt« 

crscheint am 25. Mai 1987 



TOPPROGRAMM DES MONATS 



Topprogramm 

Trotz der relativ hohen Zahl an Pro- 
gramme! n send un gen konctcn wir uns 
in der Redaktion dicsmai nieht auf ein 
Topprogramm einigen. So wird in die- 
ser Ausgabe der Preis fiir bcsondere 
Leistungen nichl vergcbcn. Das sol] 
aber nicht bcdeuten, daR das ausge- 
schricbcnc Honorar einfach verloren- 
gehi. Als Ausglcich werden wir in der 
nachsten CK zwei Topprogramme ver- 
offenttichen. Es handel! sich dabci urn 
Superprogrammc fur den Sinclair ZX 
Spectrum und den TI 99/4A. Wir bit- 
ten um Verstandnis fiir das FehJen in 
diescr Ausgabe. sind aber sicher. da- 
mil auch im Sinne unserer Leser ge- 
handclt/u haben. 



1000 DM Honorar 



In der CK gihl es das Topnslina. Das lauft so. daB 
wir hier in der Redaktion von alien Prog ram meinseo- 
dungen das bente I'mnjamm hL'taussiiclien und in der 
CK als Toplisling abdrucken. Der Autor dieses Pro- 

sraiTimsiThiiJtdiiiin als Honorar IHIU.-DM. 

Mitmachen koimcii al'e I'rogriinimierermitdenGe- 
raten Alari, Sinclair und TI 99HA. Ein Lining muli 
nichl unbedingt beiliegen, falls der Autor des Fro- 
gramms nodi keincn Dnieker liai. Werden Program- 
me abgedruckt. die nichl ;nm Toplisling gewahlt wur- 
den, erhalt der Autor dafiir jianz normal das Ubliche 
Honorar Deim Toplisling ist das Honorar fiir den Ab- 
dnick in den 10(H).- DM sthon enihalten. Milder Ein- 
sendung seines I'rogramms erkliirt sich jeder Autor 
mit den einzelnen Punkten im Test "Bei uns keinnen 
Sie mi I mac hen" einveisianden (sidle Scite 4 gegen- 

Deshalb Leule aufgepaBl: Bei uns kann man Geld 
verdienen. Die Chaneen fiir einen Abdruck. oder gar 
Gewinner des Toplisiings zit werden, slehen bei uns 



Vertriebfurdie 

BRDeutschland 

Schon-QL-Tastatur, 
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Spectrum- und 
OL-ClubWesel 


Tl-Gruppe Sinclair-User-Club 2«* 
Berlin-West Scnweiz Atari-Club 
Club-Tretlen 19B7 CONDOR 



Computer-Club 



DAMATA Liineburg 
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CLUBNACHRICHTEN 



SPECTRUM 

PROFI 
SONDERHEFT 



DAS HEISST: E1NE OPTIMALE ZUSAMMENSTELLUNB VON... 

TIPS UND TRICKS, PROGRAMMLISTINGS, 
BAUANLEITUNGEN»ERFAHRUNGSBERICHTEN! 



iibsfton Club jid em Prol»6XMiplBr il» Cli 
b unjd WTJcnlap atif jaglicha Qewlniwilrtung! 



Spectrum 

User Club 

Wuppertal 



VVcr suclil noch alte 
CK-Hefte? 
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Hallo Freunde, Der Stern des Druiden 




Shaoliif s Road Scooby Doo 

iKn.wuriinK-iiinlie- .tUlrnii iihjG wahrend miin Comic-liimd. i« HaupWarstel- 

i gelu TaisSchlLch LmiKiiiiipfspLirrsrisleiielieriiLj! i0| . riiesM |. m „, ;mi . rS vn,. Mile 



implS[n>rTSpieleii ver^len: 



m B^hlage.* ^d (em*.* , rlttc raflgllc|li 3Q dab „ 

«■- SpidreditiK.-lindlbL-hL'i 

Ziel 1st der High Scurc, [fcr System: Speeirum ■»> hi 

ueridenK&mpfcrLeivderiii Bczujsquelle; New's 




SINCLAIR 




Jaysaftl 




Ziel gibt. E.s gellt IciijiltoP i «!inel! verhrnuctu (.lurch Kr>l 
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.Art siud 



Avenger 

Breakthru 
Camelot Warriors 

Crystal Castas 

Explorer 



ofKage 25.00 



Paperboy 
Revolution 
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Multicard 1.0 
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Spec-Drum mit neuen 
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: ivh i uit.ii c [] L ;« i- n Jure 1) »f i'ii 1) r I 


a 


MiiL'jlL-llkL'il ■.!.:- H'KIIM n,.d 






DieneueMutasrdl.OthCI,:. 






die mi iIl-ii Spetrcmn-lJui .tc- Multicard suit! Ill -kompatr- /^ , i i . , .^___H<dHBB& 
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Assemblertips fiir den Spectrum 

Teil 13: Efficients. Pmgrammierung am Ikispiel vonLife 
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Life 



10 REM ******* LIFE WBHHHHHW 
Michael Schramm 
COMPUTER KONTAKT 1987 

13 DEP FN A(X*>=CODE X*-4B-39* 
<X«>"9") 

17 DEF FN B(X*)=16*FN A(X*(11) 
♦FN A(X*<2) I 

20 IF PEEK 334BB012B THEN GO 
TO 1000 

30 LET P=236: LET A=32768 

40 CLS : PRINT ■ <»»<»*«»*« L 

IFE wimmi " 

, Zufall 



Ed i tor " 



Par; 



hi- 



'4 .. Stai 



i=-- THE 

1 THEN 00 



100 RANDOMIZE P: RUN USR IA+6) 

110 RETURN 

120 

200 INPUT ■Anzahl der Individue 
n (100 - 5000) : -;n 

210 IF N<100 OR N>5000 THEN GO 
TO 200 

220 RANDOMIZE N: RUN USR A 

230 RETURN 

240 

300 INPUT -Bild mit Grenzen (-> 

0) Oder alsTarus (-> D? " ; B 

310 IF B AND BOJ THEN GO TO 30 


320 INPUT -Bchnellstnoegliche G 
enerations- + olge <-> 0) cder ei 
ne Genera- tinn pro Tas tend ruck 

(-> I)? -fG 

330 IF G AND GOl THEN GO TO 32 



jtG+B 



1000 RESTORE : CLEAR 32767 
1003 PRINT 'Maschinencode wi 

1010 LET A~32768 



1020 FOR 2=2000 TO 2070 STEP 10 
1030 PRINT "2eile *(Z;': ■; 
1040 READ A*: LET S=0 
1050 IF LEN A*<4 OR LEN A*/2<>IN 
T (LEN AS/2) THEN GO TO 1200 
1060 FOR 1=1 TO LEN A*-2 STEP 2 
1070 LET X-FN B(A«II TO Itll) 
1080 LET S=S+X 
1090 POKE A,X: LET A=A»1 
1100 NEXT I 

1110 IF FN B(A*[I TO HOS-2SHI 
NT (S/256) THEN GO TO 1200 
1120 PRINT -Dk" 
1130 NEXT Z 

1140 PRINT 'Haschinencbde 1st in 
Ordnung.- 
1150 BEEP .3,30: PAUSE 100: RUN 
1200 PRINT 'fehlerhaf t!': STOP 
2000 DATA -c3cl81c39f80cd5B82214 
030229 25c a-f 3 2943c 32083c f dcb30de2 
1 9 4 5 c 7e e 6 f 6 7 ? c d 5 8 2 3004 i d c b Sac 6+ 
dcb3e66ccl3S2c40e8211085cla21a4B 
2010*00edbl20e8a+ 120909095e2356d 
521945ct>57ecb5f2006cb4+2B021tlf 1 
+d41382dc0e82eI7eed7f ■ 
2010 DATA "4b925cc90e000478fe603 
8020600ed 43923c 1 Ba205f 27280065+ 1 
8f20e0c0dcbb918ebcb96cbcBl89dcbd 
6 1 8f 8cb86c bd <? 1 8* 4 cbr 6 1 B-t 8cb8el 8e 
ccd9882{d70ce+dcb30de2100B8U01B 
836000 1 C349edb02183a001 04001 1820 
0d92100400603c51e088f - 
2020 DATA -160406207*d9*72003091 
8 1 f 06042 31 7 1 730 1 6 2bcb f *• d 5a34Zb3 
4 2 b 34 e d 523 4 e d 5 2 34 2 33 4 2 3 3 4 1 9 34 1 0e 
3 d 9 2 3 1 0d 3d 92323d 90 1 e00 1091 520c 80 
I20^809id20b+0i000709cii0b5fdcb3 
c4628332100a011c0d006821a8612231 
310+ 906821 a8677231 30e ' 
2030 DATA '10+93e600e812182a0110 
2 a 1 8 1 a 8 6 1 2 2 3 1 3 1 a 8 6 7 70 9eb 9 <• b 08 3 
dZ0e+110000Z183a0d92100S80603c31 
e0816040620d901++047e2307f •05380 
b*e083007cbllcblll31S04cb21cb211 
0f>879d9772477252310dbd92323d901e 
00109 1520ce01 20* 809d9" 
2040 DATA 'Id20c501000709cll0bbc 
d 9 88 2 d 9 7 ab328 5c c d bbB 1 3a085c I e582 
852 + d c b 3c 4e2 B06a7 2 8e d + d 70c ec 3a98 
0c d 54 1 f d 8c f 1 4c d 3e822a7B5c 22955c + 
d365d55cdbb813e5fcd6c82673e7+cd6 
c826+ 22925ccd058238e9cd0e822a765 
C2b22765c7cb520db2181 " 
2050 DATA *00401I008B010018edb0e 
d7b3d5cc3761bcd38B27e411710fdc91 
103+ + 1803 1 100f cf 52 1 2a8272232373c 
d38820c 1 6027e4 1 0710+ d e6f c f 6004 10 
+ 10+ d 7724 1 520ee+ lc 9ed4b923c 78*66 



00+0*677Be6030784*iS406778e61c070 a6a808080788082806n3f ■ 

7076* 791* rb3f 856* 7969" z07fl DflT " "80808078B0B28097B0918 

2060 DflTft ■e60337174fc9210010545 0S7B0Bd809b80*381A8802d" 

d3600I301**17edb0c9d93701000004c 900fl SAVE "LIFE" LINE 10 

b3f204b-fdSe5b2a965c7b0707acl*cbl 9010 ST0P 

5cbl4cbl3cblll0fl*d735b22965c7ab P50B SAVE *"«" i 1 > " 1 i*e" LINE 10; 
938d979d9c7I100402100B8010018edb VERIFY *"■" 1 1 1 '1 i*«- 
0r 90d c ?4e334 3 303 1 35373836080b090 

Life Source-Code Z S^?%™"bb- E2 i« B * S?53 »««{«" 



■■ ■ ■■■ ;■■■. ■■ 
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Ail al It- 
Program m- 
Einsender! 

Wir mochten uns bei alien 
Programmieremfiirdie 
eingesaniilen Programme 
bedanken und an 
dieser Stelle daran erinnem. 
immer einen ausreichend 
frankicrrcn Ruckumschlag 
beizulegen. Jamil wir 
::c2dx rnTi falls die 
Programme schnell an Sie 
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ZXSi 

iu,'^/ Snean.m. der in ' 

derSfLi-lrum-BfLTCr nichrer 

nuiK...|.|lo,,-,,itkr l -incTi\\T- 
slilrkfi. Interface unJ Slcuei- 

hi.ik.ii I Systems hereto gut 

die fiii-:-Mi<nnn.w MIDI IV. 
MIDI Oill' und MIDI 


lectrum Music Mai 

Unschlagbar im Sound 

The 

|MUSiC 

Machine 

elk- ,rla '.".I -iel- ■!::■ Sv sic Machine .ersljirkt und hflr 

tern M'tirU'iiiwi/en barjcniaihl. lias Ina'tlaec ve 

' ' ■ 

tlffilaming verfiigen. Kumnicn *» C " uB des Sol "" i! ' kom 

cimktslelk k.kein.k An- [ Cl;1 ;-' 111 ' 11 ™' n - ™" 
ichllisseur.tcrgcbracb.l: t'i, '.'T-i"!, i"' k"-Xl-J 

KopflMers moans 

JWd.catisgang Iw.-SWWftMWiw I"-, n. 

ich ein Schicbcrcglcc iur Bit,- ten. mtfchle ich als Beispiel ft, 

4» 


zhme 

mi, ciJ.e ra Sampler eraugtwur- 
ndermfen 

ehend grnEe r Speicli cr k up a * , 1 -i : 

abet lei%licli tin freier Spei- 

mil cruet Dauet von 1 . 1 V'kim 
lien digilalmieteo. Das isl kein 

von tnaeerEn 1.1 Sekundea 
11.15 Sekwiden auljceill I An- 
dt-uiei. daS man act, versdue- 
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Grafik-Tips in Basic und MC 



lickcn und Gtraden 



haiidell.ifcrSpeul'rui 



'"'" Kreise und Bog 



,:ii.n,.monF...iM.'„,i,,-..T up-^,;,^ tir. 

,-rn.i -u.m.i:,^ i. ' sivii,,,,, ia e, 



Spiels i la "SlarioiT nder "Tin; . sjl , kll|l „„„, „,,,„ "^ „, „ ;l . .-.iMfuln- A>icIiimi omil- Kiiii'j riniriinklinnen 

Vlask" K.d:n,KL! v.vi.1.1. l= . hl ,, L .„ llL [-)!,-.,■ H,n.ti:,L::i- ^limcncii Krasbogtns Oder Soccmim-ROM 

und ,iic OualLliU i-on ilipitrdi- ,„,,,,., m[L , ln v^aick^n -scijiiiiints. Auth Ijml-h utii tla- ^ j..^., It „, ,' ^ .1 l", 
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Drehung 




fTnuu 


™w u 


L'lT^h! 






















120 LET O&W liHatH)) 


r: LET >2-y 














130 PLOT il,jl 


DRM (2-Kl 






















-yl: DRAM i 


->,y2-( 
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S' 




Quadr 


is. 












Listing 1 


290 TAB3B LD 


IMLI.E 


it init 


LD HL,IFQOO 


300 


IK 














24 
10 


LD 0,140 
LI A, 103 


310 
320 


DJNZ TAB3B 
IMC E 


Listing J 




m 


IMC E 


40 TASIA 


LD E,D 


330 


DEC 


I 








280 






LD E,I0B 




JR 


MZ,TA!3h 


20 






290 






LD D,E 




L> 


HL,tF30G 


30 


EC =Hittelpunkt 




RET 






310 


LD 


DC, 10080 




A 


Radim 


310 | 




an tabic 


LD IHL1,D 


370 TABID LD 


(MLI.C 


50 






320 KREISB CALL KRFJS4 










380 


l« 


HL 


60 


RE15 LD 


D,A 




LD A,D 




IK D 


390 


ORE 


C 




m 




340 






DJMZ TABIC 


400 


PJN 




BO 


LD 




350 


IMC' A 


120 


DEC C 


410 


RET 




90 


LD 


M 


360 


LD D,A 




JH H2,TAB!B 


420 i 








ID 




370 KREI5 


CALL KRE1S2 












no 


LD 


IKRMl.A 


180 KREI5 


CALL KXEISl 


130 




wo not 


LI 


(,at 




LD 


A,C 


390 mis 




160 


LB HL,iriOO 


450 


ID 


L.l 




LD 


(KMHI,* 




LD B,E 




LD R, 11820 




LB 


0,1*) 




HOI LD 


A,H 






iso 






nc 




ISO 


m 




420 




190 TAJ2A 


LB B.tOJ 


490 




A.'hL! 




3t 


P,KH02 


430 


LD E,A 


200 TAB2B 


LD 1H.I ,* 


4« 








ADD 


A,D 




ADD A,0 




IKE ML 


MO 


LD 




180. 


DEC 






LD C,A 


220 


BJH! TAS2B 


510 


m 


*,«.' 


190 


R02 DEC 




460 


LD A,D 




ADD A,E 




LD 


:,A 


200 


SUB 




470 m 




240 


DEE D 


110 


IK 






PUSH 


AF 


400 




230 


JA *2,JAB2A 


540 


ID 




220 


PUSH 






PUSH DE 


m 


LD rtt,tF20C 


MO 


M 




230 


CALL IfiEISE 




CALL I22E5 




LD DE, 12000 




U 


KM 


240 


POP 




510 




290 TAB3A 


LD B,IOB 


570 


RET 




250 


PDF 


ft 


520 


RET 


listing 2 


















20 REM 


.qr.-fl.tin. 










Listing 4 






30 LET 


■100i LET y-10 


: LET r*50: lit 


UT a,t 






10 REM n 


Ect 










2>r 
















42 DF,AM 






0,-1 






20 FOR n 


3 TO 6: LET 


V-87: LET < 


127 


IS RED 


















n: 5T0F 


»m 












40 RED 








60 REN 


I '. l^lll t" 


JSSJt 


hp« 


10-3601 




50 REH 












BO REM 




Bcgens 10-3601 








70 RE* 








?« KM 




















99 RER 












200 PLOT 


,y: PLOT i- 


n.t-utfm tpi/m 


100 LEI 


=2«P 1/360 










210 FOR • 


TO 2ifl STEP 2<PI/n 




110 LET 


l»l«ll liliU 


LET yl'ytCOS 


iihia 






220 DRAM 


•COS 1,1481 


• : itEIT «: 


RETURN 



Listings 




m 


LO t » 


UO IK BL 


370 FIL01 RRCA 


10 ; - 


i L1HERUUTLNE 








160 ItS 2.H 


390 DJNI FIL01 


20 ; 






300 


LD aHIS>,A 


isn ii ;first) 


HL m LI B,A 


30 i 


tOyl/U Sttftn. 




31D 


LD A._ 


200 CEC C 


400 AND (HLI 


to, 


tE-y2'i2 Help. 




330 


ld a.nn f * 


210 CALL fill 


410 LO A,B 
420 POP DC 


tO LINI 


LD HL ,1040c 




SI 


230 :nc t 


430 RET NT. 




LD A,D 




350 


LD H, t 


2W CA.. FLO 


440 OR IHL) 




SUB 








230 DEC C 


450 LD IHL), A 




m NC.LLMU 




370 LINI4 


Fi?- s; 


2s ; ie: 9 


460 FIL02 LD HL.IIASTI 


m 






390 


fiH ;t 


TO CALL Fill 


470 LO IHU,C 


110 


WC A 








290 INI 8 




130 








Ml PLOI 


2SD IK 9 




130 LIKI 


LD D,A 






PC= H. 


100 CM. FUO 






LD A,E 




420 


pcp ;e 


:io jr f:.i 


510 RES 2,H 


150 


SUB C 




430 


PC J OS 


j» f i u c pash k 


520 LD 1LASTI.HL 


170 


JR NC.L1NIZ 

LPL 




430 


ADD A,D 


330 2AL I22AA 
340 LD B,A 


530 RET 












330 LD A,l 


550 FIRST DEFi 


VK 


INC L 




47D 


CP E 


340 ING B 


560 LAST DEFN 


200 LINI 


SUB D 




4TO LIN15 


SUB E 


Listings 




220 


JR HCLini; 




500 LINI! 


DEF5 1 


10 REIt Fill-Routine 

11 REM 






LD H,L 








50 LET b=0: FDR (=fc3 


00 TD630S0: READ a: POKE f,a 


230 








tO LEI b=Btii NEXT ( 


IF mttm THEN STOP 




LD A,D 




540 


Jfl *I,L1HI4 


110 CIRCLE SO, 90, M: 


LOT 90,90: RANDOMIZE USR 63000 




l> M 




" D 


RET 


2W BEN 

300 DATA 33,0,219,31, 


15,246,34, 117,241,237,73, 125,12 


Listing u 






















20 HEN 










330 DAIA 216, 13, 205, 84, 2*4, 12,12,205,81, 216,13,5,205 




=?0: LET y=i; CIRCU 


■,y,10: 60 BUD 10 


310 DATA B4, 246, 1,4, 205, 94,244,21,212,197, 205,170,34 


nm 










350 DATA 71,62,1,4,15 


11,233,71, 166, lM,l?3,IS2,ia2 


100 LET 






01(1 y*<«< 




3M MIA US, 42, 117, 246, 113, 35, 112, 35, 203, 149, 34, 117 


110 LET HnKl LET list 




BO SUE 201 




370 DATA 246,201 






r5t=last THE* RE UR 










1*0 LET 




LE 


y-MDE yl 


iMfl 


Listing 9 




130 LET 










10 REM Orehen ernes Ouaflrates 


HO LEI 


■pU EQ SUB ;oo 


LET >=<,-: 






170 LET 










20 LET iH: LEI «*4: 


LET n-10 


190 SO SUE 200: 60 TO 130 








25 DIH tin): DIN yln 


I DW.H,2I 












30 FOB T=i TQ ft: REA 


i(tl,ylf): NEXT 1 


200 IF P INI ti,y) THEN H 








35 FOR 1-1 TO « REA 


<!f, ]],•«, 21: NUT f 


220 LET 


»<Usll=CHR» «i 


IT 


fWUrtKOM y 


40 DAIS 20,20,20,10, 
50 LET i-60: LET y=* 


0,40,10,20,1,2,2,3,3,4,1,1 
PlOTi.y 


230 PLOT 


],y: RETURN 










TD 32 

11,11): FOR i-l TO • 

la,ll),yl«(a,Z))-y(yla,lH 


Listing 7 




BO FILI 


LD HL, (LAST! 

LD 0£, (FIRST! 


BO NhEIT m SO SUB 200: NE1T f: STOP 








100 


m A 


IN RBI 




20 ; 








SBC 4, IE 






30 FILL 


LD H,IF900 




120 


RET 1 


205 LET n-Kel-i; LET 


al-ylel-y: LET a^SEN al 


10 


LD IFWSTI.HL 




130 


LI HL, (FIRST! 


210 LET h=50Jf LftSS al 


2'ABS b'2) 


30 


LD ILA5T1,HL 




140 


LD C.IHLl 


215 LET ■tP(i/2+1.3)t 


I'a'ASN [grtiltt 




LD K ,(1X711 






INC HL 


220 LET ilel-iHUEIN .0: LET y(s]-ythtClt5 «0 


70 


CALL FIL02 




ISO 


LI B.IHU 


240 NUT t: RETURN 
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111 (sls.1 GOTO 10). 



Dierc acta Speicherstdleii oil- oder AT-Befehl 



■fl'h:l. ; K3.W7- 



neue Tnste gedrilckl * 
JSUBEmMU 



da hei emer gepokicn 
Eingabe iialiezu unmdgli 
23562 (REPPER1 
dcr die Autorepeai-Fu 


J£ 


-Si" 


23Sffl(T)lihADD) 


Diese Speicbcisl 



« ££ 


■: 


*™ 


'' f' 


° n BORDCH 
















*• Fnrt 


■'!\"tr : Z;'"' 


.1 l'!)KI 




-. 120 ilelll nun 




g ^° 


DER 7 mil BRIGHT 1 




SIEPPCI 










7IVARS) 


*— 




















Var 


bt ' n " M "' Hl 


LCK™^ 












. hler, 


(CHANS, 
















-, aufd 


.,.. R( H| ~ 


l 




Tprog, 


""' 
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23M31KCUK) 23668 ( TADDR- 

Offsst-Tabellc 4 



2JW5(llRl ; n ) 
Zeigi den Inlmit 

23656 ( MEM) 



K-i(?i:rilJirittfbe?iHleii. 



:ni-UCHAN DATI 



IW-RpSPPC] 
OLDFPC. heiderc 
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Business-Software fur den 
Spectrum 



Tasword II und Einzelblatteinzug 



= 



VKklleiiTimrriimitrbe-iic/ei 


'■: : 3:f 


r 


VAL 


H-.0|,IKV 1P L 


; : 




lenzaiu pro Saw bci 










biiclc WW mil [rlltrla.cb.M 
[FTJ 1 an Sp.™um und OL ih- 


JJ 


12 


ri^;™;.;r:r. 


~;~ 


"£ 




HcliisiiniiisdiinL after mit Hin- 


















«'" ! '»!»<■■' '»'* smuraiili- 


fllipL 




•g™^***™**"* 


ri""?;l; 




dirE5rir' 


TypenradmiKchine zo 
zen. muB rami ton Fla 




KiiiiKln-jipuksucsduiiricucii 
Dnitktriiimicii (Zeiien KJO- 










£:;H^|SS 


llii? 


&z 




ahim. 




^':v:.r.,.r!^ ; 








I -dS 






lanmml II: Die llilf.,,i 


" 






ITypcnnd 




il^'SB" 


'1 




"eete- 


Zc,d^r,:Xn"' 5 '"" U 




■H 


von "Tasword II" 


^e" 




''wL" VA '"' C 








Urn die Anderangen dmcr,- 










/ulimrui. nptvi, «n Li<nn£[ 1 






,LL-L- 






51; 




rX'Lio»1?-TVii Tii^'iimn™ 


| 






Jcii R^^I^' ;, c>ll': 1 ''i",'T^ 


l 




"**■ 


S^E^I.'mu^ 


'■"\ 


:3t 




',',;: 


JZ 


"■ramnuT' /u Ifjden DKier 


EsSs 


(hafl 




«ir ciDJgcs WiMtut ,n. 


: : .' J \ 


«>'■" 




etmi 


v't" 
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Listing 1 




































































POKE 




























in und r,ich Sfijinji fl 






















--1 . .--' . jb . 255 ..SSS , Lit ,i7 . 3? 
_:;. i :.=-.a?.3£ .£S5,iS5.i4.3,a 





























Listing 2 

S: LET n=NOT PI 
=■10 LET i=UBL "&■' 

"lio'ViT c=UfiL "64 






156SLE- b=i : LET S=Uf 







Gleichungen mit dem 
Spectrum 



11 sen L0E5UNG m SLE1CHBWEN 



815 t, 



IS REX tHHHHIHilitUHHt 

21 IB KLAU5 NOHATZKI 

31 KH RIH65TP. 6! A 

41 HEN 4234 ALPEN I 

51 BEh 1I1IK1IIIHIHHHH1K 

it DIM f<5! 

71 .LET It='LGE5WG EINEP' 

II LET yt= a GLEtCHIM* 

fl LET It="B15 4.6WKS" 
III PRINT AT 0,<31-LEN il)/2;i* 
111 WOT AT U,(J!-IEN vl>'2;y 



\n if 



1 AT I2,<3I-LEK it) /til 



131 EH SUB 5711 

141 PAUSE 41 i CLE 

2ft PfilNT AT I, l|' Hil= fl'iC* 
I liliCHM Itti'O'itHM 151; M 
t t»5;"C!CHfrt ISilCHRS 1441'tD 
'iCHtt UliCHM l»J|"«? 

231 PLOT 1,172; UN 2IB,Bi DRA 



251 PRINT "BITTE SEOEN Sl£ DIE 
K0EFF1ZTEN- TEN "H","f M ,"P 

211 PRINT ' 



315 LET II 


=A: LET 1(21* LET 


l(3)=Cl LE 


t(4)=B; LETKSM 


321 PRINT 




331 PRINT 




341 MINT 




351 PRIOT 


iMIIWS0ARSTELL(H6 



3SI PRINT ■NUELSTELLENffiRECJtttH 
B "I™ 

371 LET iMlNUrt 

381 IF !*■(■ W liW THEM C 
LS ! El TO 4111 

3PI IF Iff THEN [LS i 60 TO 



DO! m EI3B THEN BO TO 1115 
441 IF AOI AND BOI AW COI A 
ND BOI MO EOI THEN GO IB 111 



D DM AND E=l THEN BO TO 1)31 
471 IF AOI AND M m COI AN 

B DM a® E-l THEN BB Tfl 1MI 
511 IF A=l THEN BO TO 3055 



1114 REN SUITE ABLEITUHB y2 

Hid LH yz=121ihi<tMhlH21c 

1117 LET kntuliFABS «yly2)/< 

yllyllt 

III! IE Interim)! MDD=2THE 



I LET n 



:: LET i= 



! LET i 



litis LET i=iii LETll'lltl: BO 
IB llll 

1124 LET i=nl 

1125 IF i*lll THEN BEE? .1,5; P 
PINT 'KE1NE PEELLEN NULLSTEllEN 

UORrlWDEN': 50 TO 2111 
1031 REN NENTOHSCHE NAEHERUHB 
1191 LET ih -y/yl 
IHIIFABSyll.llHIITNEN LET 
i-ili BO TO llll 
llll BEEP ,1,5: PRINT 'il-UOT 
I il Witt .51/11111 
1121 LET 1 1=1 

17.11 LET »=!: UTN-4M LET il=i 
1241 LET B1=A 
1251 LET B21IIil<e 
12*1 LH B3=i2i>UC 
1271 LET B4=S3I*I>D 
1275 REN DJRCK DIVISION GENOHNEN 
E BLEICHiW 3.6RASES y2 
1280 LET y2=B 111 IiIitBS HUBS!* 

m 

1285 REN ESSIE ABLE I TIM y3 
1271 LET y3=3I0IInEnt!lB2IitB3 
1272REN ZNEITE A8LE1TLN6 y4 



Computer Kontakl 4-5/B7 



SINCLAIR 



UH LET y4=M8U«21B2 

tBi LIT lfit«iw«S ItyHyl)/ 

(y3!yS)> 

1298 II kiittiiiill »l!l--I THE 

H LEI H-nMI: LO i=-an tETl 

1-1: 60 TO I2SI 

1311 If tnte.mil TUB! LET 1 1 

ilttl LET ««=««• l s LIT ■=»: ED 

to net 

131 Z REN NENTONSCHE NAEHOUKG 
13(5 VET il=i-y2/y3 
1311 IF m y2>t.lttll THEH LET 
Kill W TO 12BI 
131 5 PRINT 
132IBEEP .1,11 PBINT 'i^'ilHT 

!«iunm.5!/iMM 



1391 LET C2=BIIi2*82 

1411 LET C 3=121: 2>B3 

141! !EH DURGH DIVISION OEHBJKN 

E G LEI CHINS 2.6MDES 

1411 LET y3=CI!iai2tC?HM3 

1421 LET dl~C2/IHCI) 

1431 LET i!2=dlIdl-E3/C1 

1441 IF m* THEN GO TO I4BI 

1451 BEEP . 1,5: PRINT ■i3= , jlHT 

<<i!ltSaBd2)i1SIII'l.5)/!ltll 

1411 PRTKT 

1471 OEEP .l,5i P1MT ":4='IINT 

(<dl-SBH d2)l1IIIKI.»/IHII 

1475 BO TO 2111 

I4EIBEEP . 1,5: PRINT , l3='iiHT 

tdlHIIttH.Sl/lliHi'tjI'ilUT i 

50R (MS d2IIllllttl.il/im> 

1511 BEEP .1,51 P»!HT ■:4= , i11IT 

I(jlI!IIHt|.5)/!H!i;'-jI'!!HT ! 

SKI (UBS d2)!lHIM.5VHIM 

1511 GO ID 2111 

1711 PRINT 

1711 BEEP .1,51 PUNT 'IW 

1721 PRINT 



1031 BEEP .1,5: MINT "i^'iMIT 
(tHllltHI.SI/llllll'-jniNT 3 
BH (CMS e2>IIIIIM.5)/l«« 
1051 BO TO 2111 



I9|l If i5)ITHEH BBTO'IIII 



iVC 



1534 BEEP -1,5: PUNT ■» 
((l/A)llltlH.5)/lllll 
1)35 y TO (Id 
1941 BEEP .1,51 PRINT "Ii 
19*2 PBINT 

1)43 IF -IC/AHI THEN BEEP .1,5 
: PRINT "* ji 1 iSIB SB (c/M : 
BEE) .1,5! PRINT ! PRINT 'i4=-jl 
■ISORHIS <C/A) 

DIB IF -(C/AUI THEN OEEP .1,5 
i PRINT 'i^'iSIROB (C/ftli BE 
EP .1,5! PRINT : PRINT 'i^'l-SO 
B UBS (C/m 
2(11 PRINT 
2111 PRINT 
2121 PRINT 
2131 PS I NT 'FUKTiaiSMRSTELLUNG 

2141 PRINT -MEUE FLNKTIDM 



2051 LET rieMEIt; IF it*" Tt€ 
H GO TB 2151 

2111 IF lt='1' THEN CIS : 61) TO 



3121 REN UERTAUSCHIHG DER KDEFFI 

71EHTEN 

3(55 LET A* LET «=C: LET C=S: 



0=1 THEH 00 TO 3721 

3141 IF Mil AM) 101 AW COI A 

m 0=1 THEH 60 TO 3821 

3151 IF AOI AND BOt AND CM AN 

[i DM THEN 10 TO 3B3I 

3111 !F AOI AND BO) (WD ►IAN 

9 DOB THEN SO TO 3211 

3211 LET 1=1: LET »«.: LET 7.1=1 

3215 (EH FUHfTIHi 

3211 LET iHAMilittfaliltiitD 

3215 REKERSTE ABLXIIUHE yl 

3221 LET yl=a»H!«tHHiitt 

3225 BEN MITE ABLE! TUNE y2 

323! LET yj=«mt2ft 

3241 LET RrlttriwABS l(yly2)/( 

yllyl)) 

3251 IF hiitini-.il (HDiMIW 

H LH «=«i'l: LET i=..: LET il 

= 1: OB TO 3211 



BlFBi 
=1X1: LET V 
TO 3211 

ii in i- 



i! let ii 



* LET i: 



3271 IF 1=111 THEN CLE : PBINT 

■KEINE BEELLEN NULSTELLEH UKHA 

NDEN-I SO TO 2111 

32EI LET it=i-y/yl 

3311 IF AB y}|.HII1 THEN LET 

>=■!: GO TO 3211 

332* PRINT 

3331 PRINT 

3341 SEEP .1,5: PUNT ■iI'VINT 

ltlltlll>.5)/lllll 

3345 BO TO Sill 

3351 PRINT 

3341 BEEP .1,5! PRINT -p-i-IHT 

(D7CI 1 til It 1.5 V 111 1 1 

3371 BO TO 2111 

33BI LET F-D/BK CtC 1/(41616) 

33)1 LET tl=-C/<HB> 

3411 IF Ht THEN GO TO 3411 

3411 OEEP .1,5! PRINT 'il-IINT 

(IpKSW til I till' 1. 5) /Mil 





LET IK! LEI EM 


3431 BEEF .1,5: PRINT ■:2*"ilNT 






<(el MR t)HIIIM.5>/1MN 




31(1 1FAOIAWBOI ANDCOIA 


3435 00 TO 2IBI 




HD 0(11 THEN GO TD 3211 


3441 BEEP .1,51 PBINT ■il"HNT 




3115 IF AM and hoi am CI aw 


<tUllllltl.5>/l«MI , tjiMNl 






SDR (MB e1Illllhl.5)/]lllt 




3171 IF AM AW 3=1 AND Kit AND 


345* PRINT 






344IBEEP .1,5: PBINT 'H-IINT 






(ilIIIIIKI^l/llllll'-jI'ilNT 




DOS THEN BO TO 3391 


SOI IAB til 1IIIKI. 51/1 lilt 




3111 IF AM AND BC1I M Kit AN 


3471 SO TO 2111 




D DM THEN BO TO 3401 


3481 SEEP .1,5: PRINT "il-l* 






3491 PRINT 




D DO! THEN 5010 3211 


3511 BEEP .1,5: PRINT 1**t-l1 


1021 PRINT 


3131 IF AOI AND BM AND COI AN 


(f/Bll Hilt 1.5)' lllll 
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311 60 TO 21ft 


3971 BEEP .1,3: PRINT , i2-ji , !l 


/III 


3d! LET (1=1 


NT (GBR (ASS HlHIIIItl. 51/1111 


5125 LET y»VAL il 


3(21 LET ipINT I « Bid HI/A) II II 


1 


5130 IP y/gltSBCTOD y/q|i9B) 173 


BBI<.5>/IIIIII: L[T iWCMlKBt 


39BB STOP 


THEN SO TO 5151 


xHA»/A 


llll PRINT 'FtMTIONGDARGTELLIK 


5141 PLOT ii!55/(bb-tnl'177,y/oi 


3«S LET F-llltfHM/4 


" !AT 3,11* *(i>- A'iCHRt 15IICH 


m 


3(35 CFflHT 


H '((i'H'iCKRt I5IICHRI 145|'< 


5131 NEXT > 


3(41 IF oil THEN GO TD »BI 


I- ■■am l5IICHRt ^I'lD'iCHM 1 


51(1 MR 1: PRINT AT ll.li'Bill 


3(50 BEEP .1,3: PRINT , i2= , ilNI 


SljCHJK |4?i'iE": PLOT 1,155: DR 


t (olgnoi Zifftni druKtei! 1 iAT 


Uii/2tSQPi»(lllllt.5>.'!«H 


m 3IB,8: DRM 1,-17: DRW -2H, 


15,15;' -|AT l(,l)'iidii> Vi 


3((l PRINT 


t: DRW 1, 17 


rgrwistmng "l"'iAT 17 


3(71 BEEP .i,3l PRINT ■l3- , [-INT 


•111 PRINT " 


jli'tHferet Bipiltlluigiberticb. 


(<rt/2-50R ollllllK. 31/11111 


4121 PRINT '6= "if(l> 


."2""i*T ie,l;*inder* Hi-grins 


3(73 GO TD till 


4131 PRINT -6= ■HI2) 


seriing und HtK-'IAT 19, H 1 ™ D 


3SSI8EEP .1,3: MINT 'iBVl-lNT 


4141 PRINT - D= -i(I3) 




Ub/2)flllll.|.3)/llllBI , tjI , ;l 
NT (SIR {ABSo)IllllM.5>/lllll 


4BI PRINT *0- 'HII) 
Mil PRINT 'E" '1*131 






3(>t POINT 


(III PRINT 




3711 BEEP .1,3! PUNT , i3" , |-!NT 


5M7 LET M=" 


51(5 LIT bt=IKtEM: IF bt=" THE 


« »/!)i lit tm.ii/ \ '-jf;i 


5111 LET «='(< llIn'iIilitdlHi 


N GO T9 51(5 


NT <SW lABSolllllllil. 31/11111 


ftlHKJHiIiMMHiM'Sr 


5171 IF «='!■ THEN CIS : 80 TO 


3711 ED TD 2111 


5141 INPUT ■MRSTEUUNGSBEREICH, 


5151 


3711 BEEP .1,5: MINT "|W 




5175 IF M="Z" THEN CLS : 60 TD 


3723 PRINT 


5145 INPUT "bis....'ibt> 


5141 


3731 LET ol=-C/A 


3131 IF M='2' THEN GO TO 51(1 


51!) IF b«="3' THEN CLS : GO TD 


3741 IP old THEN GO TO 3711 


5131 PRINT AT lR,li'U«rg<«tun 


5(41 


3751 SEEP .1,5: PtIHT , .2=-ilNT 


ng o*r Vtrltlti- iwmg ? Ein 


5IG5 IF M="4" THEN GLG : GO TD 


<<5K <sl)IllllM.5)/lllll 


( Iitl (1 mlspiicttUwjiwiitrii 


III 


37(1 PRINT 


«9 !" 


5IPI IF b*="l* THEN CLS ! LET A 


3771 BEEP .1,3: PtINT "l3="i-INT 


5133 INPUT 'UtrgrotsstHig '101 


='())! LET 0=1(2): in Of(3): L 


((SUB oil! 11111(1.5)/! III! 


3135 CIS 


ETD=(((): LETE=((5l! GO TO 4)1 


3773 BO TO 2ttB 


51(1 MR 1: PLOT 1,37: BRAN 255 


5195 IF MCI' OH »)"4' THEN S 


3781 BEEP .1,5; PtIHT 'I?- jT'il 


,1: BRAN 1,1: HAH l,-li PLOT 1, 


TOP 


NT (SID (ABGollIIIIIDI.31/1111 


87: ORAH 1,1: DRW 1,-2 


Sill PLOT 8,1; DRAN 1,173: DRAN 




51(3 IF ABG bl=ABS Hi THEN PLOT 


1,1: PLOT 120,07: DRAN 1,1: DRAN 


vn PRINT 


127,1: DRW t, 175: DRAN 1,1: BR 


!,-2: PLOT 1,132: IRAN 1,1: PLD 


!!lll BEEP .1,3: PtlNI 'i3=-jl'tl 


AH -2,1: PLOT 127,131! DRW 1,1: 




NT iS8B <ABSol)IllllM.5)/llll 


OIW -2,1: PLOT 127,44: DRAN 1, 


1,G 


1 


1: DRAN -2,1 


5211 PRINT AT H.ljljAT IWin 


38 II GO TO 2111 


5171 IF ABS bi=MS bb THEN PtIN 




382 1 LET 1 1=1; BEEP .1,5; PltKT 


TATI,14iBfllEljAT ;i,l(|-RSIGl| 


I3,2i: , b= , :t* 


■il'l 1 : GOTB 3S71 


ST II.GlViAT ll,3irb'IAT 11,1 


5715 FOR I=bi TO bb STEP ibb-BH 


393° BEEP .1,3: PRINT 'il=i?=|' 


ill! PLOT £4,97: ORAM 1,1: DRAN 


/III: LET y=UAL It 


3841 PRINT 


1,-2: PLOT 107,87: DRAN 1,1 ! DRA 


5271 IF ABS y(5 THEN LET iul l=x 


335UEEP .1,5: PRINT 'l 3='! -INT 


N (,-!■ PRINT AT 13,241V' ;bi!fl 


5325 IF y/SH08{t 0ty/BD0B)175 


I<G/AtI.1)MI)1.5VKIII 


T H J M| , b« '|bb 


THEN GO TD 52(1 


IBM 6D TO 2111 


3151 IF ABS bl=ABS bb THEN GO T 


5231 PLOT iI255/bb,r/Gl*BS 


3111 LET u=-D/B 


5121 


52(1 M3T i 


3910 IP >i(l THEN GO TO 3131 


JIPI IF bi-l AND fcb)B THEN GOT 


5245 ED TO 5)11 


3911 BEEP .1,5: PRINT 'il=MNT 


57(1 


5251 OVER il LETypABS (bi!255/ 


!(MR ill! 18111)1.51/1 Mil 


5IH IF bid AM bb)l THEN GO T 


fbb-bil): PLOT yy, l! DEAN 1,175: 


3531 PRINT 


5251 


DRW 1,1: DRW -2,1: PLOT yy,l: 


3941 BEEP .1,5: PRINT "iI-'j-INT 


5115 IF bill AND MfI THEN 00 T 


DRW 1,1: DRW -2,1; PLOT yy,44 


(IGOR ii>( 11110 1.51/ Kill 


3411 


1 DRAN 1,1: DRW -2,1: PLOT yy,[ 
3!: DRW 1,1: DRAN -7,1 


3945 GO TO 2111 


5111 IF tail WD tsbll THEN 80 T 


3751 BEEP .1,3: PRINT "il* jTil 


5331 


52(1 OVER 1: PRINT AT U.liViA 


NT (GBR (ABSlllIUIIKI.SI/IBIB 


SII3 IF bid AND bbtl THEN GOT 


T 11,3'fb'jA.T ll,fyyt(>/!ll 


1 


5471 


32(5 IF (235-yyl/B(=7 THEN PRIN 


37*1 PRINT 


5)20 FDR i=bl TD bb STEP (bb-bl) 


TAT (,31-J.liLEN (STRt (BBIGDll 



it's, 









Sinclair - time 








^* 


MUSIC MACHINE 

• MIDI-lnterface 

Cass. DM 159.— 


Supei-siarr 


Ess" 




*^ V 








i 

o 

c, 
5) 


§=£■ 


tessas 


^^^J^i 


Multicard 1.0 

- E D rorT.-l<Trte 


o 



1 (%} 



mm 



*£& 



.:.'. .:' 



BOTO 



111, 

I llll 

a HU 



Spezialilaten-Bestellschein 



5351 PLST 1,1: DRAM 1,175: DRAH 
l,h PLOT 1,1: DIM 1,1: PLOT I, 
Hi BRW 1,8: PLOT 1,13!! DPJW I 



=";bb;AT ),|;B!IGI;AT 21, l! 



5375 NEXT i 
5391 GO TO 5111 

511! WEB I: PLOT 255,1: DRW I, 
175; OR* -1,1: PLOT 8S,«I DM 
H -1,1: PLOT 755,132: DM 
PLOT 155,1: M* -1,1 
5411 PLOT 127,07: DRW I, 



;4<i ft 



ii TO bb STEP (bb-bil 



/111: LfT j= 
5451 IF y/6H8B(t OR y/Eli!B>IT5 
THEN SO TO 5471 
Mil PLOT <II53/bi-2B,)>/&li88 
5471 HOT i 
513f SO TO 51(1 

5491 PLOT !53,l! MW 1,175: D» 
H-I,l! PLOT 255,1: DRW -1,1: P 
LOT 255,44: DRM -1,1: PLOT 255, 
137: DRW -1,1 

5511 PRINT AT 1,31-LEN (SIR* (BO 
IBI));BSI6iiAT 21,31-lEN (STB ( 
a8«H)i-0M!iAJ IL,3li*b"iAT I 



5521 PLOT 127,02: DRW I,!: DRW 

5531 FOR i-bi 10 bb STEP Ibb-bi) 
/III: LET y=WL It 
5541 IF y/BHGB<8 0ly/EI*8H175 
THEN ED TO 55(1 
5551 PLOT ARS ((MS i-AfiS taHS 
5/<ABS bt-ABB biD,y/tl*BB 

5571 GO TO 51(1 

5711 FDR l=IT0 7i READ i: POKE 

US9 -I'M,!: MXT i 

5728 DWA7, 1, 7, 148,113, Pi, 144, 8 



5731 'J 



■ : 1EK1 ; 



57(1 DATA 5,5,7,145,97,78,144,8 
5781 FOR i=l TO 7: READ >: PORE 
U5R "d"*i,i: NET i 



Probleme beim Spectrum 128 Plus Two 




SPECTRUM* 2SSSSE2 *SPECTRUM 




Microdrive Control 



. .FOBMATIERT t 

105 Kl — 

l.-REPARIERT" 



.5. DEUTSCHE Anl . 

.-- NCR 29.90L 

.5 CARTRIDG.33.25 
.CARTR. BOX 16.- 
.TASWORD 3 49.- 
.TASHORD 128 59.- 
.TASDIAR* 39.- 

. RGB-Modul, Spec- 
trum 48K 139.- 
. Praise zzgl. 6.- 
. Versandpauschale 

. E. REITEMAtlN 
.FOLLENBACHSTR.il 
. 4 DuSSELDORF 30 

TELEFOB: 
. 0211/I/3267O 



Chaos - Ein Spiel fur den Spectrum 48 K 



Chaos 


W I.-3P: DRW -87,1: ERW 1,37 


(,!;■! = to tin tit turn' [lb 


22 PRINT PAPFt l;AT »,2l|'Rc« 


1CIAT H,H"SP«E = ti (iiish t 




HtPfB ll^iM-ll 1 




Widlioim.it; 21 


23 INPUT -Flnsi 'ill: [F >!<1 


41 LET b=183B4i FOR i=1Hlc TB 


»« Speti tifehn 


BR MHTHEH EB TB 23 
21 PRINT PAPER l'AT »,2ii"l 


1(383: POKE 'i«bl,PEEI i: NEXT 


2REH tie wittistricliein But 


my "!AT 1I,H|'2 liddlt'iAT 


41 POKE 23487,219: RESTORE (2: 


istibiii bltle ii 5nr*ic5h»4is 




F8R M T8 7: READ it: 1 FT tdi- 




25 INPUT 'PIiih sc-ltct 'Ml 


B? J 4.SIC0DE it: FDD j=l T8 7: R 




IF |2(I OR 1713 THEN 60 TO 75 


EAD i: POKE iditj,i: NEXT j: HEX 


9 LET J4=l: LET j5=l 


2* LET j 1=1 a LET j3=l 


T i; FUR 1=4 TO Ift PRINT AT >,l 


bl SDfiDLR l! PAPER 1: IHK 7: C 


2B IF 1=1 THEN LET nl=I: GO S 




LS 


UB4I1I: BOTB(( 


": HEXT i: RETURN 


12 PLOT 79,1(7: M* 23,8: DR 


2f IF 1=2 THEN LET nl-7: BO 3 


13 DATA ■!", 15, IS, 31, 31, (3,(3, 


Ml 1,-73; DMH 23,1; PLOT 83,1*7 


'JB 4131: 30 TO (( 


l27,i27, , l , ,24l,2tl,24B,218,353, 


: Dl* 1,-33: PLOT SB, 157: DBMI 






73,1: PLOT 111,1(7: DRAM 1,-23: 


32 IF f=3 AWiH THEN BOSH 


l,"3C*, 128,123,224, 152, 132,133,34 


PLOT 143,141: DRW 1,23: DIM -2 


B llll: N TO M 




3,li BUM 1,-23: PLOT 121,137: B 


33 IF 1=3 WD 1 1=2 THEN EB H 


13 DATA 'f, 128, 138, 1P2, 224,22 


Ml 73,1 


B 4131: BO TO 11 


1, 193, 128, 255, ■'■, 255, 1,3,7,7,3, 


H PLOT 175,1*4: DRW 1,73: BR 


51 RESTORE 32: FOR A=U5R V T 


1,I, , .',25J,188,IS2,I2B,I2B,128, 


M -23,1: BUM 1,-23: KM 23,1: 


USD V<7: READ B: POKE A,B: H 


128,128 


PLOT 217,117: DRM -73,1: DRW 


EXT A 


(5 CLS 


1,-11: DRW 23,1: DRW 1,-12: DR 




« IF nl=l THEN LET K-14: LET 


W -23,1 


8,138,128,128,128,128,128,255,1, 


tl=7i LETE2=I2: LET « 2=1: LET 


11 IF ji=l THEN 60 TD 14 




n3=ll: LEI >1=I8: LET g5=12: LET 


15 FEINT AT 1,111'PLEASEHAIT 1 


8, I2B, 128, 120, 128, 128, 128, 255 


«*=■?: LET «7=ll: LET «B=B: LET 


1 LET jS=l: 60 SIR! 31 


51 DATA 1,1,1,1,1,1,1,355,25;, 


n9=ll: LET ;,lt=12: LET ill=18: L 


li PRINT fit B,2iT: CIRCLE 1! 


138,128,128,128,128,128,128,235, 


CT -117=11: LET 1=1! 1 LET«=5| LE 


,1*7,8: PRINT AT 9,71*9111 CM 
S'lAT 13,2! -S- : CIRCLE 19,47,8: 




T 11=8: LET 1.1=11: LET i=7: LET 
11=11 


8,138,192,321,334,192,128,128 


PRINT AT I3,7;*biq CMABS'iAT IS, 




48 IF nl=2 THEN LET Mil LET 


2j , 3 1 : CIRCLE l!,3?,B: PRINT AT 


1,1,1,1,24,(1,255,128,1311,138,12 


El>5: LET E2=ll: LET i3=lll: LE 


18,71'aill ind big CHAOS" 


8,128,152,168,355,255,128,172,2! 


T 13=5: LETi4=2l: LET i5=ll: LE 


17 RESTORE 17: FOR c=!TO 31: 




T 14=11: LETn7=l4: LET nE=4: LE 


READ H BEEP .l,d: NEXT C! DATA 




Ti9=l(: LET «L*=Iti LET 1,11=21: 


12, 15,19,15,1,15,19,15,7, 11,14,1 


57 DATA 1,1,3,7,7,3,1,315,0,12 


LET r,13=2P: Ln Hit LET *=3: 


1, -5,11, 14, II,!, 8, 17,!,-7,B,12,B 


,11,255,255,14,17,9,24,21,21,21, 


LET tl=(i LET k1=B: LET i=5: LET 


,3,13.14,12,11,13,15,11 


355,134,(1,24, IP2,P(, 18,31,7,8, 1 


il=B 


IS INPUT "Pleise select '|r: 1 


,1,1, 20, (3, 252, 352, 13, 23,1 


72 IANHM2E i Ln i=m imn 


F Kl OR r>3 THEN ED TO IS 


58 DATA 1,1,1,1,1,25,(1,255 


I3H1 


IP FOR i=B 10 12: PRINT PAPER 


59 PRINT AT ll,l:'Q=ip lid d 


73 FOR 1=1 TO i>3 


HAT i, 211 ■ ■: HEiT ! 


dm Kith key 7,1" iAT I3,H'B = 1 


74 IF i=g THEN Ln i=K1IIHrt 


21 PLOT 1(1,111: WtW87,t: DR 


eft ind right ■itHkey 5,B''AT 1 


21 80 TO 78 



tskxt i 


212 LET j7=j2-.2 


4,4,2,3,1 


73 OTH MIX>; DIKZ«): DIH YIX 


215 PRINT PAPER 2;AT 4,3ijl;AT 
I1,2|INT j2i PAPER HAT2l,l3lj 


1114 DATA 1,3,4, 2, 3, 1,5,4,3,2,1, 


81 (ESTOFft i: FDR AM IOC RE 


3 


1(15 DATA 4,3,2,3,1,2,5,1,2,1,1, 


»v 


214 If INT j 2=1 THEN LET yl=l: 


2,5,3,1,5 


VI LEI H(A)=U: LET Z<AH<IA>: 


08 TD 2118 




NEXT A 




1,3,4,1,1 


111 FORA=l TO X 


e 


1017 DATA 3,5,3,2,1,2,5,1,3,4,2, 


121 IF mm THEN PRINT PARE 


215 LET s«=INXEYt 


3,1,4,4,1 


1! IK! (RMDiilHi INI »iATEI,E2l 


221 IF tW AND 1IU8 THEN 3 


I8IB DATA 4,2,1,5,3,2,4,2,5,2,1, 


'EfflAT Eltl,E2;'£': 60 TD 111 


EEP .(85,5: PRINT AT tl.nll" ': 




122 IF H(AJ=7 THEN PRINT PARE 


LET 1 1=1:1-2 


1817 DATA 4,2,5,3,3, 1,4,2,2,4,1, 


II [Hi iWiiHi; INK 9iflTEl,E2j 


215 IF sM'4' AND IKaR THEN B 




'flJi'lAT EI*l,Eii" C": 68 TD 111 


EEF .815,5: PRINT AT tJ ,h If* ': 


1818 DATA 3,5,2,1,5,4,2,1,3,1,2, 


124 IF NIA>=3 THEN PRINT WE 


EH IKH1 




II INMRNMMtll IK inn £],E2: 


23" IF 5*='5' AND Dill THEN B 


1121 MM 3,4,3,1,2,1,2,3,1,1,8, 


■C'lAT EHI.EIi'bE't BITO 141 


EEF .115,5: PRINT AT *,);' "1 EE 


4,1,1,8,2 


12( IF MAX THEN PRINT POPE 




1821 DATA 14, 12,8,7,3,2,4,5, 1,1, 


s INT IIINDIOili INKffAT EI.E2I 


235 IF 5t='«' AND Kill THEN 8 




1 tflAT Eitl.Eil'flfi'i GOTO 141 


EEF .615,5: PRINT AT .,11' ': LE 


1022 DATA 3, 1,1, 1,2, 3, 1,1, (,2,3, 


I2B IF HtH THEN PRINT PACE 




8,8,1,2,5 


8 INT (RND141.ll INK ?]AT El,E2i 


218 IF INKETl-'R' THEN BEEP .8 


1823 DATA 14,15, 11,11,4,5, 1,1,1, 


■aCVWElH.ElCCE': GOTO 1(1 


15,0: 68 TO ill 


1,1,1,1,1 


131 IF N!«=4 THEN (VINT PtfE 


245 IF INKEIWHRi 32 THEN BEE 


1824 DATA 5,5,3, 1,8,4,1, (,8,4,4, 


8 INT (RNMSI-II INK RiATE!,E2l 


P .8,11: GO TO '111 


3,1,2,1,2 


'flB'ifiT Eltl,E2;'aB': GOTO 111 


251 SO TD 2(1 


1825 DATA 14,12,11,15,14,18,4,7, 


lit Ln ZIAMHI: LETTIAI-E2 


421 FDR 1=1 TO X 


3,2,1,1,1,1 


111 lFE2=nlTHEN LET EI=E1*2 


411 IF 2(il=tl AND V(al=t THEN 


1124 DATA 3,1,4,3,2,3,4,1,1,2,1, 


142 LET E!=EMs IF E2>i4 THEN 


SO TO 451 


4,1,1,1,2 


LET E2=n5 


441 HEXT > 


1(27 DATA 14,12,8,4,3,7,11,11,1, 


145 NEXT A 


411 IF N1.S-3THEN LETH(il=l: 




1SI PRINT BRIGHT 1; INK 5jAT i 


PRINT PAPER INT (RNDIiBli INK 


1828 DATA 5, 3,1, 8,1, 2,5,3, (, 1,4, 


,ili'K'iAT i-liiiraffWT t-i,i 


RiATZUl-l.YUll'EB'lAT Z(il,T 


1, 1,1,2,5 


il'ffjAT Hn4,ilti7i , sf 


(ill'E*: GO TO 2(1 


162! DATA 11,15,11,12,8,7,1,2,1, 


IS2 PRINT PAPER 2HT 1,11' 


478 IF Hdl =1 THEN LET Nlil=2: 


1,1,1,1,1 


'SAT 2, If CHAOS "iAT 3,1?" 


PRINT PAPER [NT (RHKOHi INK 




■j*T 4,»i- 'iH5,ir 


PlAT Zitl-l.Tlltl'aE'IAT 2(1>,Y 


1,1,1,2,5 


'iAT 3,6;' ';AT R,6i 


d)|' £': G0TD26I 


1831 DATA 14,15,11,18,7,5,1,1,1, 


■ TINE "iAT 11,(1' 'iAT 11, 


481 IFHUXTHEN LET HU)=3: 


1,1,1,6,1 


11' 'iAT 12,11' '1 PAP 


PUNT PAPER INT (RHDIi)Hi INK 


1032 DATA 3,1,6,6,2,3,1,1,4,1,4, 


ER HAT IMi'HIM SCORE I'M 1 


9iAT2(D-l,Y(i)!'n-|AT2ti),Y 


3,2,1,1,2 


>,!3;INT j4||AT !I,!;"SC9RE 


(ili'HS"! GOTO 211 
SRI IF NID=! THEN ITT HUM: 


1833 DATA 11,12,11, 15,14, I3,R, 16 
,1,5,1 


!B3 FDK 1=1 TO 21: POINT PAPER 


RUNT PAPER INT (RJBMhl; INK 


1834 DATA 3,4,3,1,2,1,4,1,1,4,1, 


2|AT l,25|" 'i NEXT t 


9IAT ZlD-I.YIDi' CiATZID.Y 


1,1,2,5,5 


184 PLOT 1,140: DUN 54,1: MAN 


(Di'ES": GOTO 2(1 


1835 DATA 14,15,14,11,11,7,3,2,1 


1,-3!: DRM-54,1: DRAM l,Mi P 


711 IF KlW THEN LET Hfil-5: 


,5,1,1,1,1 


LOT 1 OR* 47,1: WAN 1,-3? 


PUNT FAPER INT (RNDI4IH; INK 


1834 DATA 5,3,1, 8,1,2,5, 3, 1,1, 8, 


: DRAU -47,1: DRW 1,3? 


9iAT2(i)-l,Y< 1 )i'OE'|AT2fi>,Y 




185 PI 01 211,140: PRAH M.I: DR 


(Di'CC 1 : 60 TO 211 




AH I.-1J8: DRAH -41, H DRW 1,14 


711 IFN(D=5THEN LETNIi)-t: 


1,1,1,1 




PRINT FAPER INT <RWI4)'li INK 


I63B DATA 3,1,1,1,1,4,3,1,2,1,2, 


114 PRINT PAPER 7SAT 1,0!' 




3,1,1,1,2 


': PLOT 43,142: DRW 


Uli'FlE 1 ! 80 TO 211 


183? DATA If, 12, II, 7, 4, II, 9, 3,1, 


129,1: DRAH 1,11: DRAH -127,1: 


llll DATA 1,3,4,4,3,2,1,4,4,5,3, 


1,1,1,1,1 


mm 1,11: 


4,4,2,1,4 


1111 DATA 4,3,3,4,1,2,1,4,3,1,1, 


IH PRINT PAPER 2IAT I,l3;'lti 


1112 DATA 1, 4, 5,2, 4, 2, i, 1,1, 3,2, 


3,7,4,4,5,3,2,7,5,6,3,6,1,2,,,], 


dy?'i PAUSE 1: PRINT PAPER 2 (AT 


4,5,2,3,4 


1,4,5,2,5,1,4,2,5 


l,!3i" ': BEEP .115,1 


1013 DATA 4,5,2,4,3,1,3,5,2,5,2, 


1112 DATA 1,1,4,2,4,5,3,1,2,4,3, 



Its 1,1,4 IAS M.1&M.1 


1388 DMA 31,38,74,19,17,11,11,7 
,15,14,22,28,27,33,32,24,28,14,1 


4121 IF (Pi OR 1*3) AND 


2=3 TH 


1,3,3,3,4,1,2,4,1 




3,7,8,2,1,1 

1319 DATA 3,1,1,4,5,3,4,1,4,1,4, 


EN LET j!=J6 
4125 CLS : RETURN 






1,1, 1,4, 1 ,5, 3,5,3,1,1, 4, 4,3,1,2, 


4,5,4,5,3,1,4,1,3 




493i if titans 

EN LET ,2=58 


ftND 


2*1 TH 


4,1,1,1,1,1,2,5,5 


4,7,3,4,1,4,3,5,4 


4,17,11,12,4,5,4,18,9,15,14,21,2 


EN LET jMI 


m 


2=2 TH 


1115 MTA 4,5,2,5,1,2,4,2,3,1,4, 


1,27,24,25,19,13,7,1,1 


4811 IF tm 0Sr=3> AND 


2>3TH 


2,1,4,1,3,5,4,1,5,2,1,1,5,4,3,1, 


7818 PRINT PAPER 2;AT7-,74i' | | 


EN LET j2=3l 








'IAT 3,741' 1 .HAT 4,2i|- V^i« 


4811 CLE : RETURN 






Mil STOP 

1211 MTA 5,3,1,4, 3, 1,4, 1,4, 1,4, 


1,24|' !",■;« 7,211' l_»;fil 3.2 
t|- I VIA! II,!*! 1 WHIT Ii,»l 


9111 IF 1=1111 THEN 
GO TO 9119 


LCI 


=1(21: 


1,2,5,1,1,2,3,1,1,1,4,5,1,1,1,1, 


' 1 l*!AT 12,241' *TW 14,241' 1 
■ PJIAT 15,74;- IIIIAT I4,21i- If 


GO TO 9111 


ET 


=1122: 


1212 MTA 34, 35, 29, 2!, 22,23, 24,1 


■|AT 18,241- /%'!« I9,2ii- |.'i 


9112 IF h 1113 THEN 


ET 


-1124: 




AT 21,241' U' 


60 TO 9111 






l,< 


7811 RESTORE 2112: FOB 1=1 TO 11 


9113 IF 1=1114 THEN 




=1174! 




: RUB u,g: BEEPu/3,g: NEXT i 
2812 DATA 1,1, 1,1, .1,1,1,1,1,3,. 


60 TO 9111 
9814 IF 1=1115 THEN 


LET 


=1128, 


1,1, (,4,1, *, 3, 1,1, 2, 5,1, 4, 1,1,1, 


I, 1,4,8, (.1,1,1,2 


5, 2, 1,2, 1,1, .5,-1, 1,1 


60 TD 9111 








2115 EC TO 2131 


9(15 IP 1=1191 THEN 


ET 


■1131: 


1,15,14, 11,4, 3,9, B, 2, !,( 




6D TO 9111 








"IAT 3,241' L/SIV'i' IViAT 
1,341- 1-iAT 7,24i- 1-iAT B,24i 


9BI1 IF 1=1117 THEN 
60 TO 9111 


LP 


■1132: 




5,5,3,1,2, l,(, 1,2 


■ riffl 11,241' rt'SAT 11,211* 1. 


9917 IF (=19(8 THEN 


ET 


•1634: 


1214 OATA 34,31,29,29,27,33,32,2 




DO TO 91(1 






4,25, 19,13, 14,21,21, 15, 14, II, 9,8 


IAT 15,24|' n'|AT 14,24;' M'lfl 
T 11,241' »^IAT 19,241' HAT 2 


9818 IF [=1189 THEN 
EO T6 9111 


LET 


=1134: 


1217 MTA 3,l,l,l,l,l,i,l,l,l,4, 


1,21]' I 


9819 IF 1=1811 THEN 


LET 






2823 RE5T8RE 2125: FOR el TO 7: 
BEAD 5,9: KEP 1/2. 5,): HOT 1 


9821 IF 1=1111 THEN 


LET 


=1711= 


4,1,1,1,1,1,2,5,5 






86 TD 9116 






0,12,11,17,14,22,21,27,24,25,19, 


.3,5, .4,7, .4,4 


9121 IF 1=1112 THEN 




=1283: 


13,7,1,1 


2821 Fit I--I TO 9: FDR b=l TO h 


60 TD 9116 






1219 Mid 5,5,3,1,1,1,1,1,2,3,8, 


FOR C=I-Z TO 1: PRINT MB 1} 


9(22 IF 1=11(3 THEN 


IT 


=12(5: 


1,1,1,4,1,1,1,1,1,2,5,3,1,1,8,1, 




6D TO Pill 






4,1,8,1,1,1,2,5,5 


EXT t! NEXT 1 


9973 IF 1=1114 THEN 


ET 


■1217: 




2131 IF yl=l THEN LET j3=j3IINT 


60 TO Fill 








(21,!): PUNT AT 2l,13lj3 


9B24 IF ]=II85THEN 


iT 


=1219: 


1311 »Tf, 5,8,1,1,1,1,1,2,3,1,1, 


29(1 IF jKHTHEK LET jl=jlH: 


BO TO 9181 








BO TO 3111 


911IRESTDRF 1: FORK 


m 


*: RE 


2,3,1,8,1,1,1,2,5 


1971 IF j3)jlTHEH LET j4-j3: P 


ADM 






1312 8018 34, 31, 79, 78, 22, 71, 28,1 


PINT FLASH HAT 19, 13: INT j4 


9121 IFU=ITHEN 6D 


9151 


9,13,14,15,9,8,2,1,1 


29BI PRINT WAT I.Ij'Pims SPfiC 


9131 If k(A)=VTHEN 


it TO 9111 




E *ty (or 1 in gut' 


9141 IF I=I2I11«N 


ET 


=1311: 


1,1, 1,1,4,5, 1,1, 1,4, 1,1,1,1, 1,2, 


2891 IF IHKEVt-CHR*. 32 THEN 60 


60 TD 9111 








TO II 


91*1 IF 1=121) THEN 


£1 


■13(3: 


1314 DATA 34,31,29,21,27,21,22,1 


2895 60 TD 2198 


6DTD 9118 








3(11 DM 11(74): LET 11(32 TO 1= 


9142 IF 1=1299 THEN 


IT 


■1315: 


1315 DATA 5,5,3,1,1,1,1,4,1,1,1, 


■A HEM CHAOS 1 


60 TO 9111 








3111 FOR 1=1 TO 38; PRINT PAPER 


9143 IF 1=1293 THEN 


IT 


-1317: 


4,1,1, 1,1,1,7,5,5 


2IAT 1,811X44-1 TO 44-DI5): P 


60 TO 91 II 








AUSE 5: NET) 1 


9144 IF 1=1267 THEN 


ET 


1319: 


1,15,14,3,9,3,2,1,1 


3821 60 TO 27 


EO TO 9111 








4111 IP (t*| OR i*3) AI»r2=l TH 


9149 LET yl=U 6DTD 


988 




1,2,3,2,3,2,3,1,1,1,4,1,4,1,4,4, 


EN LET j2=ll 


9151 NEXT A 








(111 IF O! DR i'31 AND r2=) TH 


9155 DIM 0(3(1 










£j# 









DIABOTO 



Bomb Jack II 

Cass. DM 25.90 



Core 

Cass. DM 12.90 




W2B2S 



Equinox 

Cass. DM 12.90 



Friday the 13th 

Cass. DM 6.90 



Software- 
Bestel Ischei n 



algende Software: 


mm 


M 


*£?' 











































Iwo Jima 

Cass DM 10.90 



SINCLAIR 



H GO TO 91BI 
m> HEXT ■ 
net fw tFi to ii i: 

llfl LET i=0(b>: IF 1=1 THEM LE 
T »l=l: en TQ !ttl 
720 IF HUM THEN MS PWE 
Si; IHK 9 (*T ZU>-l,YH)i'LLE\A 
TEHyuU'll"! IH» .!»,?! P 
«IKT WEB ii 1NK9iAT1(i)-I,Y 
Uli'EifiK IM,Yttlt'£*l BEEP 
.119,!: PRINT WEB41 INK 9;A 
T ZUIl.Tfin'EB'iWJdl.HiTi 
■C"l 68 TO 9311 
Hit IF H(»=2 THEN PUNT POPE 



■ C : GO TO P3II 

m\ IF Wl)'3 THEN PRINT PAPE 
fit! MfitT ZID-i.rdli'E'iA 
T ZUl.YIDi-'J": BEEP .11?,?! P 



"tie: BO TO 9311 
9231 1FNU1MTHFJ 
n i; INK ?!« Zfj) 



i PRINT PAPE 
•l,T(l)i" L'M 
BEEP .«?,?! P 
Ii*TKi)-l,r 
'dlS'Itf! BEEP 



■as" i GOTO P3II 

9211 IF N(l)=5 THEN MINT PAPE 

ft I; iNK 9i*T Zlil-UdlJ'QL'iP 
T Zdl.THli-CH-i BEEP .l«,yi P 
HINT PAPER ii IMC »i*l HiM.Y 
fiK'LU'iAT HU,TUI|*Kd tEEP 
,119,9: PRINT Wl>. 1! 



T ZUM 



;;b ! : ; ;i, 



*Effl GD TO 9311 

PHI IF »(!)=( THffl PRINT PAPE 
II i! INK 9IAT ZID-I.Ydli'BB'iA 
TlUI/rUlfJUTl BEEP .119,9! P 
RINT PAPEP. (I INK!iATZ(D-!,Y 

(jii'lj'iat z(i),Tii)i"aa'i beep 

.119,9: PP.IHT PAPER t; INK HP, 
TZlil-l.Ydll'BB'IATZUl.Td); 
"06": «0 ID ?3!l 
9311 NEXT b 



Hardcopv mit Seikosha 
SP800 



WAFADKIVE: 
lur:hPHINrL:SK 



MC-Generator 

10 REM Spectrum-Hardei 



20 DEF FN 



mter Kontabt 
L(X*)=CGDE X«-48-39* 



nblick bltte...' 

60 LET A*="c3-fd366400dff«'0d280 
■Ff e3aZ80bcd8J Iecda22d«683+d77643 
e 04cd0I16el01cd0009360I*dcb64462 
B01 3401 * 9* f 09 1 fib* e3060B7e23d7 10f 
b 1 e000 1 0007d 5 1 4 2 82 b 1 5c33eb * 9247e 
fi C00f 0f 0+ c 6 406778e607 FJ4677 Be 6380 
7076-f 7be6f 60f 0-F Bi 856f 7be607 " 

70 LET A*=fl*+"3c477el710tdclcb 
1 1 1 d7e64 1 * 1 * 3012 1 F 7S3004f e07280a 
3d2B0a05rb09cbllcblll3i0b4fd7265 
0602* d 5664 18021 89a79cb7a2802»«7f 
Fe0d20013dd7cb42280Z10eddllcZ0Bd 
e 1 * d 7 e 64 e e 94 f d 77 6 4 -F d 5 665 7 a 3 c 20d 7 
ed7b3d5ct3761b0a091b311b3P0001' 
80 LET S=20429 

90 LET X=16*FN AIASI1H+FN AlA 
• 121) 
100 POKE A,X: LET S=S-X 
110 LET A*=A»(3 TO ): LET A»A*1 
120 IF A*>" THEN GO TO 90 
130 IF 5 THEN PRINT *F«hler in 
A»! p : STOP 
140 PRINT 

150 PRINT "Die MMChinencoderDu 
tin* lst","b*reit."'"Au*rii+en du 
rch PRINT USR 23296 DaE Basic-P 
rogranp* kann durch NEW gelnMC 
ht Merden. " 
lfiB STOP 

170 SAVE "SPB00-Copy"CODE 23296 
,206 




SINCLAIR 

EP.FUEGT UESEft K 
, ,'T10Rsf UERDEN 



ION SCMBLi-u, 
c.hLp,;H3E" fi.u; 



"i-ICrtE ilr-N 1 



j point fBjtiiiiiiiaBiami 

Jfis dps ■', , ''JEdeJ uernuEnftI 

JSOiiPfiMM ", , ,, HflT;SRUE IH 



MEHftFfiGM " , .-Heoesic 

.-r., ,„« L.r,o UERSEMEMT- ".."LlC 

ES LQESChEN BUSGESCHLOSSCN ",, 
3*5 GGSLiQ 9S80 



S75 PRINT - 



■UEBCRSICHTl 



1 PRINT " iM FUER MENU) ■' 
i FOR X=l TO 36 

i FOR N Y = i C T0*LEG"Ss^.. _ = 



311 IF INKEYJ: 



!" THEN PRINT " 
" THEN SOTO 39 
1 THEN GOTO ES 



■ZUSRTZieiCMeH tIE r 



i gosub saao 



375 Gusue seoe> 





IF ri'-, 

IF RN 


]»Z 


GOTO SB 
RN.0 THEN GOTO 

PRINT " WELCHES 




F UER 


1 TnEN 


PRINT ■UELCME 



4. SINCLAIR 



. 



, G0T0 50 


325 IF INKEVt = '- i-r.EM GOTO 835 


445 IF LEN Clwl THEN GOTO 43S 


-30 I: _ J-i_' r -■' ? ■ : '-■" TnEN GOTO 50 


-sa if cooe . :*-.ae or code csisa 

4SS LET RI i*i =M* (CODE C*-27) 


348 PRINT 'hfiBEN 51= E5 DENN SO 


HON hdGE- 
54 5 IP ;;n. :-r, 5. .; -.."-£■,_ GOTO _-34ij 








855 IF INKE/*7>".J" THEN GOTO 70 


47S PRINT ■-" 6ITTE S FLIER STR 




^TS^iO-^ T„EN GOTO 43 


fsl PRINT "UOLLEN 5IE ZURUECK I 


435 ClS 

4§6 LET |t« ""_ 


'V^ L if i M n£\i<>- " THEN GOTO 978 
B7S IF INKEits"" ThEN GOTO 875 


630 IF INKE-. Ii )"N" THEN GOTO SB 


SIi ^^.tTtI 1 ^ 8 ' " 


f.Zl PRINT -OK.ICH GEBE MICH OES 


n" R.--EI,. 




hLO ^^giV."™™.. 


457 FOR H»l TO 10 


lis FOR X=l T04 

i05 FOR r=:]0 TO ili+Xi^STEP -i 


580 LET L-INT iRNDiRNifl 


915 PRINT AT 12>;B»iXI 


510 FOR Z'l TO L.EN ^*^jj' e0TO 57 








i5a =!p. <,=i to ioo 


5S8 IF H«(L,Z>*"1" THEN GOTO 54 




*5S5 IF ft»(t ,«•"*" THEN GOTO 55 








535 GOTO 570 . 


5810 lET MS (1) =' 2O20iBa0S 




5815 LET Mi 181='*] 
5820 LET :■'*. j. = ... . 




547 GOTO 670 


S82S LET nji4. - .... 




- INT hT 11,15. ■ 








5035 let f^* ;|; -■■leilioaia: 




556 NEXT h 


5045 LET Ml'ei ="382818101 






loll let ^1^'la^=;;20^83O£0l■ , 








ieli lIt "ilia! -"seiaiai" 




-07i _lt mi a:i- io:*iSi 




5.07= uiT lis iii.' ="28131 ■ 








S8S5 LET MS I 16) ="1818201" 




so;o let mii7i -"KiSi'' t 


IlB FOR Y=l TO LEN At iklRL Z*iM> 


lias let hjiaai "■'laaasas'- 






;:.; „et ;-,s .it ^ 20:02 


PRINT F,i -*'" JflL Z *' Mi ' Yi= " a " ™ erJ 


5115 LET Hi .22. =" 1028181" 


■ ' ■ ■■■ ' ■■ ■ ■■ .■ ■ ■ 


sae NEXT y u _ 


l~3E lIt MiisS) ."1820201" 






5X4.0 LET M* iS7.i ."2820102" 


323 IF I t i.l-lJ ■ ":" THEM LET MrMtl 


5145 LET T1S128J = ':"jg} 


lit GOTO 60S 




tiu ooioe sooi' 




ssa goto so 


SioS LE" f,( '3.=., = -OiJlOi- 


745 PRINT TAB 7; " J > > RS5PEICH1ERN 




S1S0 LET M* (05^"2810202" 


718 PRINT . . 


i-35 T ET MI . ii. - 20231^1 


715 PRINT STSSTEN bit L-EN Hc>-'J 




;. ;„.-;:=■; . bit ii_C!i nilK, v 




ERSESSEN Dt,-. ■.. HICROPttONSlE 


i = 3& S-'jf 


C 7'6 piTNT STEC ' ieM ^ 


io^^ for r=i iu aaa „ T= T „ 


303S PRINT hT 21,0, ==> BITTE TR 


I'sii PRINT ■ I.-.RUECN.EN SIE B FUER 


STf BRUECftEf." __ „_, 






7SS IF i"-E,S ':;■ ~ VHE!-, GOTO ;2 = 
">30 IF INKEVta' ' TriEM GuTu 7j£ 

?! 6Jlfe'rr T " E ~ a0TO " 






WPlK|,»^T*« »fT U ». 


745 CLS 


loll IF R INPE\ SO"" THEN RETURN 


BB8 ClS SHOE 


|j;=| =..;itT h r-.T 21,8, " = = > BITTETH 






sis print j:.l:.c:. = ie dhS ~ro:-p 

BUM JIRKLICri" . , ■ L U i o L M E N 


tote i* P INr" £¥*?>"" THEN RETURN 






"sae i= ink6v»<>' ■ tmks boto aaa 


^■° ' : - :jT,:i = 01 - 



QL 

Boot fur den QL 






'Vi^itl'i'i J" Olllie Udevorg. 






is Programm belegt drikckl 



Datei-Kommandos 



Dr. Drive 

F.leganle Katalogfunktion fur OL 






Zeiger(Flag) 

Zeigtr. ob tia Kalalug vorhanden 

ist (1 ' vorhanden, 

O'nithi vorhanden) 

Zahler 

Zahler 

Zahler 

MfcMi.-lltMkrudhvi:-Nummer(l-8) 

y-Kuordinate fur Prints 

\-Koordinate fur Prints 

ZiihJcr. wit viclc Eintragungen 
diTgeladenen Katalogbesilzl 
Zahler (des) der gewahllcn 
Kile(si. bei "Ldschtn" 
Zahler 
. ZahJer 
i/iithiiltaktudk-nTflstcniiruck 
entMIt Cartridge-Nairn: 
tiuliiili I'rcit Sptiihcrplatzangabe 
vnir. edfiikncn Kaialog 
Hilfsvariable 

tnthiilt neuen Carl ridge- Name n 
beim Formalieren 
cnilialiTtxibeider Ki:r7.iiilcitii[ie 
uriihUHtintrueunsifc^ciTiKiiiiiiii!! 
enlhall Eintragungen. ilic mliisfhi 



,-nihMi.v. 



ilragungen vc 



Tastenbelegung 

IS RESTORE 

13 READ a 

28 FOR ^a TO a+7 

25 READ bi POKE Q,b 

38 NEXT Q 

40 IF a=45528 THEN 

39 SO TO 15 
IBB DATA USR 

3,48,6 

1 1 8 DATA USR 
4 , 46 , 64 , 8 

129 DATA USR 
48,54,8 

138 DATA USR 
49,34,8 

148 DATA USR 
2,72, 112,44 

158 DATA USR 
,64,48,8 

148 DATA USR 



• 


,34, 


b 


,66, 


c 


,48, 


d 


.66, 


• 


,48, 


O 


,44, 


u 


,34, 



68,44,44,12 
B , 54 , 69 , 40 , 
8 , 48 , 48 , 4B , 
72,72,112,7 
68,44,44,44 
66,44,44,44 



Computer Rani I 



Dr. Drive 


211 LET ml 
722 INPUT Hill 


378 LET '=15: LET i=ll GO SUB 9 
B7I: REHHeaiJpirikt iiUUkren? 


1 BEN B..Drl« 


273 IF wl THEN LET b«=if: BO 


371 IF jt=V UR jfN" THEN 6 


'84 Lsani"! LllHl 


TO 271 




Aldruper Brink 133 


775 IF CODE lt=l AND LENlCIT 


3ti format vm*' 60 SU6 III 


4417 Sinn 1 




1: REN Itliriiit THtt! 


5 LET y3=l 


73! IF LEN Kill AND CODE ilOI 


411 KEN LSschn Ml Flltttli 


II [LS : FR1HT HiW 1,11'Ei ■ 


THEN 80 TD 271 


415 60 SUe 1811: REN LHKKM 


iism nMh die Uollite 'SAT 


245 LET Itlll'it 


111 PRINT AT S,l| PAPER 21 BRIG 


l.lj'iirhgtlideiioerilH. ': BE 


215 SO 10 221 


NT li" Louht* "Mi Filed! 


EP 1,31 


271 LEI [*■*.! LET ,3=1; ERASE 




1) LET d=PEEK 237M: LOAD IV 


■n'idlCHK H'12345" 


412 IF i3=» TIEN PRINT AI 21,1 


idl'Ullitti'CBDt 


275 ED SUB PS II: fiffl Lonhei 


; PAPER 2i INK 7i BR1SHT Ii FLAG 


51 SO TO '511 


271 PRINT AI 5,1; PAPER l| INK 


H 1!" ti liegt Kin titling vor! 


III REM Cililog lidtn 


7; BUIBffl li'Cit ridge-Hue: "i P 


1 •>. PAUSE III: E0 IB 9511 


IIS 10 SUE 98IH REN LoKhei 


AFEI 41 IN* l;Mi PAPER 11 INK 1 


4l5LETy=8: LET i=l: 6D SM 96 


111 PUNT at 5,1; PAPER 21 BRIG 




21: REN Inriwk? 




277 PRINT AI 21,11 PAPER U INK 


421 PRINT AT 21, li PAPER 21 BR] 




r, BRIGHT li'Fuief Sfnth«flj 


GHT ll'Bltti btlietijeTistt diii 


115 IET y=8: LET Wl GD SUB 9B 


tn'i PAPER 4; Ml Htfl PAPEt 1 




?li >EM lnhierk 


i INK 7i' KByte' 


425 PRINT AT 11, II PAPER ii INK 


121 PRINT AT II, li PAPER SI INK 


27P LET »Ml LET i=l! GO SUSP 




li' HdcklnSlettti Citilog fur 


755 


■SAT 12, li PAPER ii INK U'ende 


■;AT 11,11 PAPER i| INK 11- (ton 


277 IF 7=1 THEN GO TO PPII 


iFllilil iiHiillBi. 


HtiLipinkt 3iiU«Hltu«?* 


281 LET yfyl*l 


431 FRIHT AT 18, li PAPEt. i; INK 


123 PRINT fli 13,1; PAPEt 61 INK 


215 LET yl=yltl 


erOiUcIee Sie o=Heln Eur licit 


ii' '(MIGHT !;■<)/« 


3(1 PRINT AT 7*yl,» 1 PAPER li ! 


■;AT 14,11 PAPER S| INK indie 


>*i BRIGHT li" 


NK 7i BRIGHT llitlyl) 




13* PRINT AT 21, l; PAPER 2; Bll 


2P3 IF yl=ll THEN 60 TO 321 


435 PAUSE 1: BEEP .1,1*1 H S9B 


GHT li' FUr ItaUpntit 3 (j/il? 


311 IF "IM! THEN Ln yt=lt L 


9811 




ETy2=l 


437 GO SUB 9971 


135 PAUSE 1: LET jt=ll*ETI: BEE 


314 IF 1=21 AND y2=l mm w E 


441 PRINT AT 5,1 j PAPER 21 BRIG 


? .1,15 


US "31: GO SUE 7141; SO SUB P93 


HT li 1 Ausiiahln v« Filelii 


111 IF jtO'j" AND JtO'J'WB 


5: in i=l: LETy2=l 




j«)V AND jlO'N" THEM SO SUB 


315 IF ,2=1 THEN LETk=2I: LET 


«5LETil=": FORifITO II: L 


fill: SO TD 135: REN SO SUE PS 


yM 


n H=it<CNK 1: NEXT ■ 


S*">Frtltr»LdMl! ! 


313 GO TO 2G8 


441 in J** LET yJ=l: LET H 


145 IF jt='j" OR JM'J - THEN 
TO IBI 


321 GO SOB PPII: REN Beliebige 


1 LET yl=li LEI yt=l: DIN rti5l, 
III: DIN ((51) 


151 LET y=ld! LET i=l: 60 SUB 1 


331 HEN Forutieiei v. Cittidgt 


451 PRINT AT 6,1 i BRIGHT li PAP 


B7I: RENHMLipinlit iistUKo ? 


335 60 SUB P8II: REN Losiliei 


EH 7' INK li* NlMll! : '1ST 6 


155 IF j«='i" OR j^'N" THEN B 


341 PRINT AT ),!| PAPER 2; ERIE 


,!7| PAPER 7| INK 1]' LUSCkCI 


TO P5II 


NT !;' Fnntitrti vm Citddg 




148 [LS : CAT dt GD SUB Ifll: R 




455 PRINT AT 21, li PAPER 2i GRI 


EN BeliebioeTiUi! 


345 IET p#t LET i=k GB SUB PG 


BUT ll'Bltt! >Shl« : pit / *# 


Ill PEN CitUd) 1 


21: REN Humeri' 




185 LET fid LET I'l: 60 SIB 7 


2JI POINT AT II, 1| PAPER (i INK 


411 60 SUB 9955: REN Bilktn 


B-71: REN HnupiiAl lutfutren ? 


li' Bilte den neutn Nun des 


415 Ln yl=yHI 


Ill IF jl=V OH ,■*=■«■ THEN B 


■1AT 12,li PAPER 4! INK li" hi 


471 LET y5=y5H 


TD P5II 


ndge; ]n 3 5b(n.'.i=lB.:' ■ 


471 IF 1=1 THEN PRINT AI 21, li 


IPS LET yt=ll LET 'Ml LET v=l 


3T5 PFIVT Al 31,11 PAPER 21 BR1 


PAPER 21 BP.IE.fH Li FLASH l i -Es 


: LP K*"! LET ri="i LET it=" 


SHT I;' Htuen Huen (ingtosi 


gibt kerne EiltiigiiOH '": GO 


V Oil i«5l,lll: LET 1=1 




SUB 7911: REHheliebigeTistell 


211 CLOSE II: OPEN l4,VidiC* 


3ii input at i,i;at i,i; paper 


477 IF y5=5l THEN 60 TO 535 


4 If 12345' i CAT 14, d 


li INK li'Niiem'i LINE tl 


475 FOR 5=1 TO lit IF COOE Illy 


in cube ii 


3B IF LEN ild OR LEN nl>ll TH 


5Ko, 10 0.1=1 THEN NEXT gi HI TO 


215 DPE'I M.VidlCHK l'"12345 


EH 60 SUB 9651: 60 TO Jill REN 


471 




GD SUB i359=!Frtltneldung" 


471LETyl=y5: LET y(=ydl 


221 LET i=i*l 







4EI PRINT AT !.yt,l: WEI 11 ] 


425 P1IHT AT 5,11 PAPER 2; ERIE 


7(5 DATA 'Be Btjikiitg uiid die 


NH7; BRIGHT HiK»l) 


NT If Citilog u=d>gckin 




4S3 PRINT AT S.yl,17i'iJ/(.ii' 




inyng ','folgt dis HuptlMie. 


491 PAUSE t: LET j«=INKETt: BEE 


631 LET pB: LET i=l: GO SUB 96 


■."Didyrii is! fsioglit 


P .1,15 


21: REN Ltuiuilc 7 


k Eii- ','9'tw » korrigitrin 


4!! [F jlO'i' WD jtO'J' AND 


SB PPiNT AT 11,1; paper (; im: 


tnj i.0.',"[ln FnrutKKi !• It 


jtOV AND JtO'N' THEN SO SUB 


ll'litlMidfi Sit fta Drurttr 




9151: 60 TO 4)1: REM GO SUB 70 


'lAT 17,li PAPER 4( INK li'birt 




5*=>Ft*limlfl«rig!! 


iilfPaur M?,Pjp:«? > ..)'lAT 21 


771 DATA ",'Aif dJe2tt Frigi 


511 IF jl=V OR jt="K' THEN P 


,l| PAPER 21 3BI6HT 11 INK If' 




Rim AT St»l,]7j PAPER v. m l| 


Diurltr Uciei! .ith (n '! •: PA 




BtiBKT li'Htil"! PAPER li IDC 7 


USE III 




!■ ': SO II SIS 


Ut LET p!5: LET i=ii BO SUB 9 




SB IF jl="j" 01 p*t TH)I P 


371: REHH«Up.r,kt iislUhren ? 




p:»t aj B'vt,i7i paper 4i m li 

MIGHT li'Jl'i PAPER II M ?i" 


M5 IF (!='■■ OR jt="M- THEN G 
11 TO 9511 


775 DATA "Oer Uoiging dutH el 
MS I = r.-\ " g* r , denn d<i titling 




£51 MT 13, d: GO TO 9911; REH B 


iusji- ','Hiikiig lit it* Litil 


511 LET it!t)"il(yl>: LET • (11= 
y\\ LET k=HI 
313 IF yi=I-l THEN GO TO 535 


eliitij Tistei! 
(55 REN KiiiHlt ling 
157 RESTORE 751: LET yfcl 


l» tf v i>=u ni™ go sus mi 


lit SO SU3 9BII; REM Losihef, 1. 




; LET yt=l: GO SUB 9(41: GB TO 4 


Glldsikifis 






4i5 PRINT AT 5,ll PAPER!! BRIG 




575 BO TO 4iS 


HI If Kumnlellimg 
■;AT 71,1; PAPER 2; INK 7! BR 


TBI DATA ■".■Also mchl gltitk 


535 PAUSE 3: EU SUB 9BII: BEX L 




OHUM V. B]!d5(UrI 




Sckllu-.li '."TIMm" 


54IPRIHTATS,l; PAPER li BBIG 




nr w Louhtivoi mm 


(71 LH /=7: LET y4=y4tl 


715 DATA -Fills HEl (lift Ukl 


545 PWHT AT 7,131' 'IAT IJ.IJi 
' ■: PLOT 119,114: CPf* B,l: PLO 


(71 FOR g-l TO 11 
ill LET .=1: LET)-r*l 
!95READqi: PAUSE 3: 


irbu- ','uig dts Pisgriaibliu 
(fi ','dirib dlt EyctOHldi 


T 111,21: DRf* 0,1: PLOT 119,10: 


S9? if iHrnrr^'e- or rHKEYt^-E- 






THEN GO TO (511 


rtZli>''' i ' li ' M ' ni '* H, 


SSI LET y=0: LET i-l: GB SUB 90 


S95 FOR 1=1 TO LEN qt: PRINT AT 


71: EFM HcftUpaakt lufLihrn 7 
353 IF |#>V OR i«=-M- THEN G 
TO 9511 


!,.H| PAPER (I INK liqlll TO I 
Ij BEEP .11,5: NEXT 1 
711 NOT 5 
717 IF >4-5 THEN E0 TO 9911 


'hi» "','dfi gwiMten Menupin 


Sit FOR 1=1 TOM 


Ut s«s- ■, , (Liki» li-stn.tn udt 
roii Fiil-'.'lei 1st bin GOTO 9511 


3(5 PRINT AT 13, li PIPER i; INK 


715 PRINT AT 71,1; PAPER 71 BR1 


ins YHup'i«i>t Wll d!4 B 


1; BRIGHT IfEusiig: •jtMt) 


0KT 1; INK ?i" Hit beliihigirTi 


S7I PRINT AT 21,1; PIPER 21 BR1 


sleneitir •: PAUSE 1; 00 TO 6(1 


311 REN f'ogtiu beebdH 


GUT ll'Snll gelosilil Urdu 71 j/ 


791 DATA 'HillkHHi bci Dr.tri 


B15S0 SUB9BII; REM Loscbw d. 


57S PAUSE 311: LET j«=IHKET* 
3BI IF j»=V Ot jt-N' THEN L 
ET ji="! BEEP .1,-11: NEXT I: G 


ve. , ,'-/U(.rrwebi!t[t lhnni d 


911 PRINT AT 5,1; PAPER 1; SRIG 


TO 111 

517 SEEP .1,31 

565 ERASE ■*';e;et(<): LO W 


dti ','Tiititur gnddlt Tist 
en j=Ji ■,'unJ n=N«in M«rd« kin 


313 PRINT AT 12, l; PAPER li 1* 
'1AT 13,11 PAPER li INK 7;-?rcM] 


515 LET it(e<t))-il: NEXT t 


phack- "I'lith (Ur EingibH Iwi 
tligl. ■ 


uit b«sden?l;/n) * 




Bit PRINT AT 71, l; EWER 71 BR1 


til SO BUB 9911: REM Belitbige 


7(1 DATA ■VUor d« RHlUtNH 
in qt- , , , «alillti Heiupunkle 


GHT li 1 Hirklick bwrMt j/n) 


615 (EH Cililog msdmclc«it 

121 W SUB 9Blt: tEH Lostka d. 


b» gt- ', "Engl, ob d*r HtriJp 


335 PADSE 1: LET jl=IWErt: BEE 
P .1,15 






331 IF jlOV AND jlO'N" AND 



jlO'j" AW jlO'J' THEN ED SUB 


T 3,1; PAPER SI INK 1; BRIGHT li 


'1 HE 


9B5t: EO TO B25: REN SO SUB 9B 




TURN 


5l=>fekler»eldn>g'! 


BEEP .1,15: PAUSE 5; GOTO III 


'B7IRENNenuptn*l HStDlIBi 7 


335 l c J*— n- OH j*=-H- TH£N E 


9475 IF [NKEH-'I' THEN PRINT A 






T 11,1; PAPERS; M I; BRIEHT 1 


li'Snll Mr r-trnUpnnit iisgefuhit 


349 PRINT AT 11,1; PAPER!; I* 






1; GRI6HT l; FLASK li'TsihUse.. 


: BEEP .1,15: PAUSE 5: 60 TO 331 


hi?'! BRIGHT Il'tj/il'l BRIGHT 


.■l STOP 


MS! IF lu*EV*=-3- THEN PRINT A 


II' 


9591 REN Kinpli.enieiMiske 


T 12, li PAPERS! INF li BRIGHT 1 


-BSB PRINT AT 71, I; PAPER 2; BR1 


9515 PAPER ll INK ft BRIGHT l! B 




GHT 1;' Nenupinkt iisfLiirsi iff 


MOER 1: CLS 


: BEEP .1,15; PAUSES: DO ID 111 




(5 11 PLOT 5, 171: ORAM 230,1: DRA 


9485 IF IHKTfM'4' TIEN PRINT A 


9005 PAUSE 9: LET jRHNKEYt: BEE 


H 1,-29: HUH 238,1: DRAM 9,29 


T 14, li PAPER Si INF li BRIGHT 1 


P .1,15: 


9419 PRINT AT 1,1; PAPER 1; INK 




9891 IF jKJ'j' AND jtO'J' AND 


6'Kii.gircQ Soflmie Pfodut linns 


: BEEF .1,151 PAUSE 5: GO TO S15 


jKTf AND jtO'N' THEN GO SUB 




9691 IF IHKETM'3" THEN PRINT A 


9859: 60 TO 9885: REN GO SUB 9 


(413 PRINT AT 2,1; PAPER 4) INK 


T !t,l| PAPER li INK li ER1GHT 1 


«5it">F*MHK]ding" 


t;' prcdl, p>eunt< 


("Si Kixunleitung .■ 


7P.75 (ETURN 


: DEEP .1,15: PAUSE 5: 60 TO S!5 


"18 REH BeliebigeTiste! 




9S95 IF INKER'S" THEN PAINT A 


7915 PRINT II, AT 1,11 PAPER SI 1 


9419 PRINT AT 3,11 PAPERS! IM 


T 19, t| PAPERS; INK 1; BRIGHT 1 


NK 9; BRIGHT U'Etlitbige Tiitt 


1;' 'i BRIGHT li'Or.Dr 

ivs'i BRIGHT 11' 






: BEEP .1,15: PAUSE 5: GOTO Bit 


9719 PAUSE 1: BEEP .1,25: GOTO 


9415 PLOT 5,114: DRW 238,1: ORA 






H (,-Hl DJAN -738,9: OWN 1,93: 




7929 REM Hatlslf Stile lit belie 


PLOT 5,138: ORAM 238,1: DRA* 1, 




big Tntt 


-13: DRAM -236,1: DRAN ■. 13 




9925 PRINT ll',AT 9,1; PAPER Si 1 


MM MINT AT 5,11 BRIGHT 1; PAP 

H 2;' Hiuptteni* 


7911 FOR g-8 TIi 10: PRIST AT g, 1 


NK b-Hiita >;i beliebiger Test 
e ": PAUSE ll BEEP .1,-25 
9939 PRINT WAT 1,9!' 


9425 PRINT AT B, li PAPER 4 i INK 


9315 PRINT AT 21,11' 






": RETURN 


9935 KETURH 






(B2I REN Lufwrt ? 


9948 BEN Lbscbn 2 


9431 PRINT AT 11, 1| PAPER Si INK 


9B75 PRINT AT y,ii PAPER ii INK 


9745 FOR g-BTD 10: PlIHTATg.l 


li^Fortjiiiren v. Catridge. . 


li' Elite (etf« Sie die Hater 






■;ATy<l,(S' desLiifnems » 1 


I NEXTg 


9S35 PRINT AT 12,1; PAPERS; INK 


1-81. ■ 


9951 RHLIRN 


9i'3ij LiJMlitu von FileCsl 


PB2? PRINT AT 21,1; BRIBHT li PA 


7955 REN Silken 




PER H' Llufwrk 1-3. 


9941 FORg=l23TO 134: PlOTg.ll 






4: ORAN 1,-93! NEXT g 


li'lu Cililig lusUntken 


KM PAUSE 1: in j(=lNKEVl: BEE 


9945 RETURN 




F . 1 , 15 


9979 REN Citfidge-Nueundlitie 


un print at 14, i; papers; ink 


9B35 IF jtCl" OR -fii'V THEN B 


r SpithH. 




D SUB 7351: 10 TO 9S39: REN GO 


9971 FOR 9=1 TD 3: PRINT AT g,l| 






SUB ?B58 =} MlMHMnMjl ! 




1439 PRINT AT 19, li PAPER Si INK 


f8flt LET d=UAL jt: RETURN 


NBT| 




9951 REH FeiiterM 


9975 PRINT AT l,li PAPER 1; BRIG 




9355 PRINT IliST 1,1; PAPER l| I 


HT 1; IN* 7j'Citf idge-Hae: '; P 


1S5J PRINT AT 2l,li BRIGHT 1; PA 


« 1; BRIEHT l;'Di; >ir sine nic 


APES li INK llMi PAPER l| BCIGH 


PEP Zi 1 Btlte.SMet tit 1-6. 


nl voigesenne'iAT 1,1; PAPER 4; 






INK a; BRIGHT li'Eingibe! '; 


99BI PRINT AT 3,1; PAPER 1; BRI6 


9441 PLOT 5, IB: MM 233,1: DRW 


PAPER 4; , Be!iebigt T«te!' 


HT l| INK 7i'Freier Spikhirplit 
i:'| INK 1; PAPER 4; tfl PAPER 1| 


1,-13: IRAK -238,1: DRAM 1,13 


9E49BEEP 1,-35: PAUSE 1: BEEP . 


9445 PAUSE 1 


1,25: PRINT ll;AT l,li* 


INK 7| BRIEHT [;" KByte 


IJ7I IP IHKEYt=- 1- TIEN PRINT A 


'i*T l,If 


799! RETURN 



QL 



Speichererweiterungen 
fur den QL 












"Ouill"i:a.«IUW)!> 


















ilin^ 711 ^irnniT'"!.--!'.- 




















KBvtt Xi^k™" cTcranlc 


auch Prohleme ganz 


l.;™n,'i-iJiL iu-in.'lu-l« W!ii 


'^itByt'/'cS'l a"v 






pcflklisch gleich Null. 




Anderc Spcichrrcr^ik-ra, 


mcht mchr. "Cho- 



Reparatur-Schnell- 

diensl/Ersalzleile 

fiirSpectrum! 

RufenSieunsan! 





QL 

Nette Damen 
mit QL Strip Poker 




,-™„ mt&!Xi&™£ Atari-Spectrum-Problem 






.ml Jim Spider libgcMigm. vumSptclmm 

Das Ganza M and, mng,- System: QL SL 1 Sb!*£ 

;r keinCekl melir. sr.ll f juch 5inriaLr-Spr/ial|[Stenservn:e luiuciimsiLiag 

in ]>il seme. KlenluiigmiHi!- "in l.'i.vraWi-r K.-.m.-ki. skhc Also, gcschi 
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Thor, der neue Super-QL von CST 




Slrumlahel lvii'iti.et ftirJ Lin 






n-KilM-U^niKi- » ..r.a- anzsihullun ( 
der Tastaturansthlul) und fin tionivcilerai 



auth 




e, ft 


H.^i, 


ulit r A 




^ 


i;;;; 
















, C 5i«:, E „ 




IJl.-PI 




ant 


U „l, 


net) 


n >lr 


11 alptia- 




■'.... ." ■ 











t.i.iinl. I" : '.'['|iy- tin d "Toolkit 
















sclmn Mil DATVLUSL wird 


ln-l^ien.lmh 






,-,n Default- DirttKirv li.i Da- 








tcn. mil PROG-USE (ilr Pro- 






in IwlJk- Mon- 












tmltkmOl.ct- 


















nichtlMHE 




rlp-_ abttipujthtn utid nun 


















LOCK. NUM 






1 ISV'i-.S SCREEN. 1.11(172 


CROLL LOCK 




te Mil us iiim.- 


stall LBYTh.Sfln2_SC.REEN, 


1 tuttiidiodcn 






inn:: tiiu-jgcbcii. Allcande- 


w-itt in diL- Mi'ja- 






ren Belt-hie. Z.B. WCOPY 




den Cursir-T 






EQ den Rsrfine. 


Die Harddi 












Nun noeh ein weilere<; Bei- 








spiL'i: Ivs sullen :ille '"Ouili" [Jo 


















bcfitidcl 5ith ei- 


,1.^...,.-...!^ 


wcrdtn. Hie™ 


deii:QUI[.l..wi[iLislzurZcH 
























MAKE_DIR (JUIf.l. ( clit- 


%-^-T, r t 


tm L t^''v'-, 


fcheTrWfe 


ic} -S^B^talJ-^ 


I'iv'l, '.|.="|,-|'L 


r.-n -S--T Ilu.J 


4. l«-a!i;i_..-in..- 


ivnanieiisOUIl.l.tiiiatridittt 
hin DIRhcwcist dies: 









b™_ Dieser Vorgaag daueUe ° 1J ' L 



aabe). SCROU. LOCK (trcim Ecputferl erfoletn -Vat It Para- hcini Bewhieihen d/r Hard- k.mmrt danti *in< QUJI 1- 



TOP-SOFTWARE 



C-.irvip wc\ KOiitakt4-o.'8; 



Monitor fur den QL 









l@e REMarh MONITOR von 

lie REtisrk eeeseeeseeGGSBeees 

129 REMark RaU Buehler 

138 REMark Rasenweg 58,7638 La 

MB CLEAR 

158 DEFine PRCCedure he*<h*> 

160 h*=FILL*<"0" ,4-LEN(ti#>>f<h* 

179 FOR 1=1 TO LEN(h*) 

IBB a=C0DE(h*<l))-48:b=C0DE (h*< 



QL 



2BB d=d-39*(d>9):c- ( :-39*<09>!5= 

218 a»a-39*(a>9> jb=b-39*(b>9>:»» 

16*c*d 

228 s=t 16*atb>3236*5 

238 END DEFine 

248 DEFine 



268 IF x=B THEN C»=FILL*< " 8" , 16> 

!GO TO 33B 

278 IF x<B THEN i»=6353AH( lGO TO 



:IF 



«>-B THEN c*-( 



■1" 



KB THEN c*=c*fe*B" 
338 IF LEN(e*J = 16 THEN GO TO 338 
349 ?umme=5umme.'2:GO TO 31B 
358 END DEFin» 
360 DEFine PROCedure bin', a*) 
37a a*=FILL*<" 0-, 16-LEN(a*)>t<aS 



440 END DEFine 

458 MODE 6 

460 CLEAR 

478 CLS 

488 CSI7E 3,liAT 2 ,7 1 FLASH 1:PR 

NT "M N I T R" iFLASH 8 

498 CSI2E 8,8 

588 AT B,0!PR]NT " By Ral* Bhle 



B,0 
INT ' 



e l-:PRIh 
r flier B> 
548 PRIN1 



570 



tINT ' 



_aenge" 
5S8 a*=-" 
599 PAUSE 
688 READ 1 ,t 
610 BEEP 1000*1 ,t 
620 IF 1 = 8 THEN a*=l 
STORE 



636 IF a*""' THEN GO TO 59B 


928 IF q»< i)="b" 


AND q»(2)-" 1" T 


64B BEEPiGO TO 678 


HEN POKE n,q«<4 TO )|G0 TO 966 


630 DATA 3,58,3,46,3,38,3,51,3,1 


938 IF qS( l)="b" 


AND q»(2)- , 2' T 


8 , 3 , 38 


HEN POKE n+l,q*C 


TO ) iGO TO 968 


668 DATA 3 , 58 , 3 , 49, 3, 38, 8,58 , 0, I 


94B IF q*( »■•*■ 


OR q*< l)=*fc' TH 


678 CLE 


EN hex(q«<2 TO ) 


>POKE_W n,ssGO 


608 PRINT -Mchtert Sie die Starta 


TO 96B 






958 POKE_W n,q*!q*=-" 


698 PRINT 


968 n=n-2iAT 19, 




788 PRINT " 1. Uom Compu t 

er zuwelun 1 mm 


978 NEXT n 








vom System geschtzt.)" 
718 PRINT 


Kurzmeldungcn 


728 PRINT ■ 2. Seltwr whl 


Micro Pcriphcralcs 


Wer noch die alt* Version 








738 a«=INKEY*C-l) !IF »*-■!" THEN 






GO TO 776 






748 IF a«="2- THEN GO TO 7BB 


sStilESt: 




758 BEEP 588,1 




76B GO ,TO 738 


JciPm.fiirfoolkiilHnn^. 


776 INPUT 'Bentigte Bytes l*|3(m 




120.-DMbetragt. 


t=RESPR<x) :G0 TO BBS 






788 PR1NT:INPUT "Adresse : <|nl 






798 nl=INT(nl/2)X2 






888 MODE 4iOPEN H3, sc r iMINDOH «3 






,512, 18,8,4:PRINT »3;" 




Fi schertechnik- Interface 


Adi-eise N.Wert Code Bi 
nr Byte 1 Byte 2" 


•■«"'» °i 1 


fiir /A Spectrum 


BIB CLSlAT l?,B!FOR n=n 1 TO 5888 






BB STEP 2 






B28 dec (PEEK W<n>> 






838 u*=CHR*(PEEK_W (n)>!lF u«=CH 






R*<1B> THEN u»— ." 






848 PRINT ,n,PEEK_W<n> ,11*, c*, PEE 
K<n> ,PEEK(n+l>|" 


Neues Super-QBoard 




858 INPUT del" "iqSsIF q* 


von .Sandy 




="" THEN GO TO 978 


Der italknisdw QL-ZulK- 




868 IF LEN(q*)-l THEN GO TO 958 


|...^rru<Uin-iii Si,iKl« !«i se, 




876 IF q*< !>=",■ THEN q*-qS(2 TO 




S^| 


)iFOR u=l TO LEN<q*:> [POKE u+n,C 
ODE<q*(u>> :NEXT uiIF LEN(q»> HOD 


sl^nS"^'^"^. 


2 =1 THEN n=n+u* 1:PR1NT tt<Ji" 1 






Byte 2uge»»tz* ! ■ iGO TO 966: ELS 






E n=n+u:GO TC 968 






868 IF q*(l)-"I" THEN la="," INS 
TR q*:name*=q*(3 TO <la-l)>:ad*- 


SSltSS' 


niutil UbuEprlilcn. Ls wlrtl ;iul 


q*C<la+l) TO ) iLBYTES "mdvl_-Vna 






me*, ad* iGO TO 968 


Die Tatsache. diB sidi Tool 

nehe£ni3et(dami[iiiss..:iiiii[." 




898 IF q*<l)=-s- THEN la-- ■ INS 




TR q*:name«=q«<2 TO <la-l)):l»2= 




"," INSTR q*:l l«=q*(<la+l> TO CI 






a2-n)il2*=qS<<la2+l) TO IsSBVTE 
S "fndvU'a.nanie*,! 1S,12*:00 TO 96 


sitr_Bt Jjiin. JiilJiliT KOM-IV.I 


ZaJZ TcZTt^'- 







9BB IF q«(l)=-a- THEN n=q»(2 TO 


,,™;™2 


>-2ir>=INT<n/2)*2iG0 TO 97B 


918 IF q*(l) = "lt" THEN q*=qt<2 TO 




Im MOIIenkamp 26 


16) !bin(q*) iq*=siGQ TO 938 




4830 Outersloh 1 




PARI 



INFOS - NEWS - BEFtlCHTt - REVIEWS - TESTS - PHOGHAMME - LISTINGS - ALLE5 Ft 



Liebe Atari-Freunde, 












GmjheKraidcrscinpfch] 



Red Max 






lidiks.ten ,I C . lid 
Filmfigur Mad Mi 
littl nidv. djiinjl 



BMX Simulator 
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ATARI 5 5 




Tales of Diskmaster - Kopier- 

Dragons & Cavemen schutz fur 1050-Floppy 



Daa Ptogramm kjnni 



_-A 



_^ » 

* » :: ■ ■■■■■■ 

■■ 








aa 



Ausgaben 

Anzahl der Hefte 

Seiten 

Buchstaben. zahien, Zelchen 

Bisheriger Preis 



Computer Kontakt 
12/1 1986- 10/11 -1986 



ca. 800.000 
DM 33.- 



Kennwort 6 Qus 6 



Porto 
Preis fur Verpackung 



DM0.00 

DM 0.00 



Preis DM 22,- 
Druckfehler Nein 
Beslatigung s.u 



lestetl 



22 Mark 



Bestellschein 



MeliieAnsctirlft: 



5ie mir bitte die 800.000 Buchsta- 
ben, Zahien und Zeichen wie oben ange- 
geben zum Preis von 22 Mark. 
S check liegt bei. 



Farbige Cursor-Zeile 



COL.PF2 mihikt 



Anderungen 
zu MikroMon 



Die Leislungsfahigkeit 



ASLZ.X- 16 

PLP 28-(PSP] 

ROKZ.X- 76fehll 
RORABS.X 7E-fthli 



n folgende DATA-Zcil, 



1023 DATA 415J4C043I--3K3HJ.V 
1031 DATA41S34C(l!JfJK5HlA. 
1040 DATA 5!)4C51HJA414E4400, 
1079 DATA 524F5:o53K3H.iFUA 
(983 DATA 



i ebenfalls nichl editiert 



MC -Generator 



I REfl iCl 11/86 HC5-S0FT ■ Pinkrith 

II GRAPHICS (rPDKE 352. 1:60SUB 325M:F 
>I497iF2"I69BiP0»;E F1.52lP0HE F2,II2l 



LE IHI'i 

38 FCfl J-3 t0 3lFDR tM ID I STEP -li 
SDDND UT(t/II,IH.i;.«tlEn HfiOSUi I 
HUE" JtPOEiriOH 2,3:GDiU; 71 
41 FOR >3 ID 19i? ■ lEILE-lfOSnUIH 
13-LENISTRIII)),I:? litSOM 1NKI/61 
,L2i,]2,lrGDiUB Nb-! IHEH 1 
15 PDSiriON 2,72;GS3UB 7B.F0B l>l TD J 
i SOUND I, I24HH2. II. 4 IBM! 71:HEI1 I 
:BDSUB 71 

91 POSITION 2.22r? ,' IWli IM 
:«Ti l iiQPEMl,l.| I -Ki-iBEI ll.liCLD 
ii In BOTH 21 
M>BB 

71 FDR L>l TD IiSDUHD L.8,B,BiF0R 1=1 
TD ISiNElT ZiNEll LiRETURN 



J2SII REM Ml HWI-lUf iwi III 

5251 B S'B I RESIDUE 326!lilF PEEMlS3o." 

112 iHEN RETURN 

32528 FDR 1-1536 TO !699:READ B: POKE 1 

,!lS=StDlNE(l I 

32531 IF SOHI54 THEN 1 • MIEM-FEHLE 

II! -iSTOP 

32S9B RETURN 

J261B DATA 112. 1'6. 194. 8. 8, I, 131,1. 131 

,1.131,1, 131,1.118,1, I!I,B,I3B,I, 131,8 

.131,1, III, 1,118,1 

3261* DATA 131.1,131,8,131,8, l!8, I, 138 

,1, 131,1.131, I. 138. I, 118,1, 131,1.131,8 

.131,43.8,6.114,169 

32628 DATA I. 141,47,2. HI, 14, 212. 165.0 

0,141,1,6,145,89,141,4,4,149,1,141,48, 

2,149.6, 141, 49, 2, IH 

32638 DA1A 114,1*1,8,2,169,6,141,1.2,1 

49, 153, HI, 31,2.14°.., 141,11.1, 169.192 

,141,11,212,149,34 

12641 DATA 141.47,2.96,72,138,72,1)4,1 

63. 6, 228. B4, 241, 12, 173, 162, 6, 1*1,11, 21 

2. 141, 24,218. 7i, 145 

3263B DATA 4,173,161,4,141.18.212,141, 

24, 2BB, 232, 142, 141.6.184,178.184,64,14 

9,8.141,163.6,74,93 

31(68 DATA 221,8.1,1 



IS*-' 

S3 1 



ft 

1 

1 



050 TURBO 
-nur 98 DM 
DRUCKERKABEL 
r 49 D 



GRAT1S- 
INFO anfordern bei 
GERALD ENCL 
COMPUTERTECIBJIK 

BUNSENSTE. 13 
8000 MJJNCHEM 63 
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Musik-Keyboard 
ATARI SX-7 




u! KYii ?iSfei!!Kw!rS I 










■in™ SW XL scwhrielien urnl (Tasini A-D) 




























;leitung spiele'n. Eff.ku- b, Jt SLOW sfwahlt werdsn. (Ta- 


liYcosut isen 






ken und Raumklanc sind tin- VIBRATO- .lurch Taste ndiuck 


7.50 Million J,i:'"-«. Brims 




B. Barter ound" 




Z6I POSITION 3,11:* ■£. Iel«n 


!■"■ ■rs.-lN-'i'-n' k' ^■-"n'-n.'---' l !JI "^'" llin " ND - Dic crstc 


770 PO5I7I0H 1,12:7 "S. pruiiHilnrw/n 






fell welder, Er* a ta, ^ r „ " 


2,, B™iS™" i: " ! ' "^ "'""' 














Sr " '""I h g h.sdi 


jib open ■!,.,■. tc":mi »i,«r:CL05[ 


,...,. , ■ ■ ■ 


m if "ey=*sc !'■»■') thIh uno n* 


Funktior. nwB iffl | 1 ' dEn.islEinXeaau- 


■ ■ ■■ :.' ■'■■. 






1.:,]. Has Abspickn trMti mi- KF YHOARD: Halblcnc 








der ersier. TasBmrreihe ec- 








t aus Platzgronden nidit auf Mi' dcr START-Tastc pilanjM 


'"'nan Tfiw!l» 1 S.t!i?t!s«T!i ,l jiI'"' 12 










T.'IKiiiu h{idi-,ii- l.osclnniidLS |- n .|. K -|-. tiei Orucken derTa- 


lit £0S»l inia 












ISO POSITION IS It m, DiSdO 




u« wfnSS*! S «s 


vcrschiedeneri MSnfts erklUrt a 












ien yewiin^dueji khi'lninis ,,._.„ ,v LTL l L -n. .lu jun^r li.-in.- V.i- 




wahlen(TastcnA-H) riaWfli ti.tr .lie Ahfragen im 


(11 PD5ITI0II i,it:7 '■>» PIHSC »lt 
ft _ «(-:P0snli)« 11,17:7 -esc for He 












5!i*if «i=»sc["i"i !he« mi-titum 




Synthesizer 


5 ii! IF " ,= * ic, " e ' ,J ,HEH «"=b«:soto 


























'■ POKE DLT.t»,i:POKE H.I+if.,6 






S'w Kfamm r"H "ro m'"" 


7» POSITION J ! i'' ?i, ruTME-50FT' 


I* P05III0N 11,7:7 ->pr«Mly presents" 


610 FOP 1=1 TO 15 57EP 1 : SOUND i.li.ll 




,T:HEXT I; KUDU 1.0, 0,1:0010 31* 


sic -k*»hoar«S":* "(4 SPECIBL TIUH 










&*i*li**,*.t,'»,tMA, jo, •.**.•.»!•! 


1Z1 P0HT10N 11 ! 70: 7 -|ppess stirll" 
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ii3t if cm>5w as cats ibei 7 •Vfmm, 






























iVil™ >»■■■•«*>»■«•«• 










?!! P05ITI1N 1!.3:* "Br UBSMtt Around" 


;»i;iL:" 1 ES»t;>'"2^s<cn"ii="« ! !t 


73l POSITION 11,4:3 " 


















771 IF f-f.: ■ f.UlO HI 


















1130 if rw :ini=is;cin 








134* IF FO.EOS:"*" THEI CH«K«=»1 :CH(C 












us# if fi HH)=n>aif 




CH**U=S: :■:■ > )) iliSBTO 


■to HE5T0BE «E5!:F0» TBI ID l:BEAl Ml 






Hit IF Fl ,)zjl:cmc 






















Nl PDilllDM tlmfft Flit 










13)9 IF FBE05="X" THE! CHCCMl=liCHtM 










HI MSXTJm HNU self 




. Lt «i":**KE 7M.ZS5 






1411 PMBM :!(£=Cy<i T 


i<« IF P=ii THE! BEL=5:t«iD }» 
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1179 PD5ITIW 11,4;? "MC«6»DUN»/CHIHI6 


, LI : M>UUI> 1, SI , 1Z*L3: 5MIMO 3 , Zli,it,L4 


™ ™ SI11 ™ "' Si * " 






'im 7 ( -«« .^j.^hw... i t » 



























bo ATARI 

Cavefire III 



Starter l7 ' W* WbM»rf*.Mrtl,«,a.«* m «*M 3t,iit.M.ii2,8i,ii9.B4.i7i,e 

|,|,t|,24,il.il,24, II ,1,1,126,111,11,2 5, 58, 129, 64, 132, Bl, 148. 84, 1 71, 83, 59, 44 

4,24.4I.12,!4,I4. 16.34.14.14,54,124 .li.lH.M.M.M.S) 

» R» F .wmiUl.H.CkSri>ME«U "• MIfl 13,I26.223,6B, 24,11.98,24.112 J2I IATA 68,1,1.1,1.1,1.34.85,-1, 1.126 

3iraTmSio»wm(» ^wiwmitw jiuwmmumki .w 

« 4 ™!imi«"wm«ll!!ll' 7M1+l,,PI1 »'■ •«' 33.233.127.39,1.1,1.1,1.34.23 331 MTU I3,I24,223,4I,24,68.9I,24,IB2 

u Lnntiuiii.ru> la^HTi, _ _ iii m m „ ,,, „i , n ti m i .11 m.w Mi ii.u.ii.ii h.ivlr i 

41 POM. CH9+1531H.PEEH 






5,255,255,233,233,124.218,123,37,233,2 .14,124,255,41,24.41,91,11,96,15.1,8,2 



218,128,1,8,1 *, M. Hi, 255, 231.126 

[A 3B, 24!, 27, 34, 55, IB, 50.54,16. 3 HI DATA 46,1,1, 171, 25! 
,36, 14, 24, 16, 14. 4B, 16. 41,233, 233, 2 5,47,1.1,1.1,171,255.255.255,51,4,1,44 



tWaH4I.PIHIS7H4.ll.PW ^.2361 ^ ^ „,„,,„,„,»,.„,,,,„., j,, m 46.1,1,171,255,253.235,255.25 



H,PEEl![57I44tl)i*n 
51 READ Cl IF [-1 THEN 91 

^SSS!,. .,231.42,253.95,63.63,221,43.117.191.4 ,54.124.42,28.34,124,54,161.91.164,81, 

atMUmri*'**''''* mK>9 ' "' ""* 44.189,126,6!, «3,!9B.61,126,2 111 DATA 3B,II6.64,129,BB,J4B,B4,17I,B 

„™„; ,, 21,43.233.233.133,235,255.233.214,141. 5,59, 144,1,12.132.12,1,31 ,214,61,1,1,1 

46.1, 1.1,1, 1.1,171,233 ,I,I.I,S1.2M,-1 

211 DATA 47,171.253.233.255,255,233,25 J7I MTfl |, 121,251,61.24. 126.24, 121.1. 

3,!31,4B.56,14. 124,234.234.234,124,1.4 !,54,l4.l,l.l,l,B,l,3.l,l,I,B,24,il.Bi 

III READ OIF CO-1 THEN FOR I'l TD 7l 9,I.1,I,I,234,!34,!34.I24 ,255,4,li.!4,48.tt.255,255.l24.il 

READ AlPOM CHSt [it* 1124*1 .AiNEIl HID ia MH 51,65,I,I,1,I.1,43.1,52.B4,4I M1 UTA 13,124,223,41,24,124,24.11,74 

TD m ,84,41,84,41,84, 41,53,I,1.I.I.I,I,B,2B ,14,l26,213.»,24,il.9l,II.9i,15,li.!l 

111 READ OIF CO-1 THEN FDR II TD 7. .55,41,124,68.24, 24,18,124,41 ,601,255,255. I24.il 

READ ArPDKE [HS*[t8.l 336-1 .AlNElT 1:80 IM MH 34,142.81, I77.M,148,B4,178,B 3 „ MTI 46, 1 7B. 253. 233. 255.233.235.23 

Tn n| 3,37,171,83,171.13,171,13, 171, B3, SB, 12 3,233,47,1,1.1,1,1,1,171, 

9. iB, 1H. II, 161. B4. 171, 85 124.48,234,254,234,124 

261 DATA 59,41,1.17,44,37,1,112,153,61 411 DATA 31 , 8, 8,1,65. 1,1.8. 1,52, 41,14, 

,1,1,1,1,1.1,112.153,-1 41, 84, 41, B4. 41, 84, 33, I, I, 1,1, 63, 1,B, 28 

271 DATA 1,124. !51, 41,24,124, 24, II. 94, ,53,124,54,28.42,124,54,28.42 

2, I, I, 24,41,41, 14,1,1,13,124,223,41,24 411 DATA 51. 144, 81, 141, 82, 14B. 84, 171, 8 

,126.24,121.6 3, 3B. 131. 72, 123, B2, 111. B4, 171,83, 39, 32 

141 RUM ■DiEWE3.BA3 , :RE» BIN. CLOAD D 281 DATA 14.124,233.H,24,l!4,2t.24,l8 .134,1,32,1,1,17.171 

DER RUN ■Ci' - JE KACH VERHENCET EH 2, 13.B,N,1S,24,6I.B4,255, 235,41,1.1,1. 421 DATA 61,I,I,B.1,1. 

6AW-BEFEHL! ! ! ! ! ! 1,171.255,255,255 4.251 ,61,24.61, 91,24.6,2.8, 1,1. t.B.B.B 

151 DATA 1, 124, 231, II, 24, 61, »!, 24, 112, 291 DATA 47, I, I. 171. 235,235,255, 255, 25 ,8,3,B,l,l,B,24,il,B4,235 

2, 1,1, I, 1,1, 1.28,24,3, 8,8,8,8,24. 41,11 3,48,56,84.124,48.254,254,234.124,51.2 431 DATA 4, 14. 24, IB, 84, 255, 255, 121. 61, 

6.255,4,8,24.41,114,235.231.124.61 ,44,1.1,1,1,32,1 13,124,223.41,24,41,91.24,94,14,124,23 

111 Hit 5.1,1.34,119,255,119,34,1.1,1 III DATA 52, 48, 84, 41. B4, 41. 84, 41, B4. 3) 5,41,24.124.24,124,1 

,1,1, 1,1, 72. IB, 217, J, 14.54, 16, 126,126, ,1,8,1,8,1,21,8,28,55,28.62,124.54.23, 441 DATA 44,1.1,171,235,235,255.233.23 

11.16,36,8,1,8,61,24,41,32,11,24 42,124.34 5.47,1,1,8,1, 171,255,255.255.51.14.1.1 



,l.(4.l.4.( 

n» :*■■- '.:-t %i.t.i. ■:.-.. .i::.tt.\: 

htl.2l.i4.6l.H6.tl.9t.tt4.SI.IU.tl. 

w.M, m.it 

Ul 3fi'» je,:3j.M.:».t«.i»e.t4.i?i.£ 

J.J'.i.M.Ji iiB.;t.l.:H.iij.6l.».i.i 

.l.8.8.:31.J8J,t 

•>i '*■- uit.ni.ti.ji.iit.n.m.t. 

'. i-t *.t i I t.t. .1.1 ».;..:. -I.-,:.: 

fflAU.W,**,lija,S42*,»l 

4ii «n i!.;;t.i;:.6i.)t.m.jt,ji,96 

,it.tjt.»J.tl.Jt.:)t.i4.;i6.».46.».i. 

*(..■». I'.i. .'.•..:• 

4=1 Mta 4 M. (.;;». jj),;jj.^j.j;5,is 

9.48.91.84. li».s8.3S».JS4.1M.)I«.M. J 

J.l.M.I.**.*.! 

918 Ml* 9J.tt.84.<t.|<.!|.SM|.et,U 

. t. I. 8. t. 1.8. 71. «. 99. 68. ll6.6l.J4.J4. 

tt.lj6.t8.t8.M.I.M.I.t3.17l 

9:1 ;tiJ 9t.1tl.il.ltJ.8».!!|.S4.l7l.t 

!.::..!•.«.: It. ;.. i t(.S«.. 'I :J.:s.8. 

v .,.'■>( :t. ( : 



lluupiprotjramm 




Dkyan. 



Pascal Software Atari XL/XE 

kyan Pascal fur die XL/XESerie DM248,- 

kyan pascal 1st ein mit DOS 2.5 arbeitender 
Compiler fiir die Atari-XL/XE-Serie. Es umfaflt 
den voflen Jen sen- Wlrtfi- Standard und eignet 
sich f iir den Antanger genauso wie fur den fort- 
geschrittenen Programmierer. Es ist blitz- 
schnell und hatlolgende Eiganschaften: 
* 6502 -Maschlnencode-Com pilar eriaubt das 
ElnblndenuonAssemblersource * Bildschirm- 
editor * String befehle + Atari-Grafik und 
Soundunterstiitzung * SourcB Code Linking, 
Chaining und Random-Files * 1 3stelllge Ftoa- 
tingpoinl-GenauiQksl * M : TuiL;i..il. ; Pefei.-n,:- 
unterlagen * 

Myall pascal wird auf siner ungeschutzten 
Single Density Diskette geliefert und benotigt 
nur 48 K Speicherplatz und ein Laufwerk. 



Compy-Shop 

Gneisenaustr. 29, 4330 MUi helm /Ruhr, 
Teleron 0208/497169 



SYS T EtlUMSCHALTKARTE 
HIGH SPEED BOARD 
512K ERWE1TERUNG 
VIDEO MEISTER 
SOUND MEISTER 
DRUCKER INTERFACE 
64K ERWEITERUNG 
HIGH CHIP 
HAPPY BOOSTER 
PROQRAMM LISTE 
CLUB INFO(CA.GOOO) 
KATALDS 



ST FLDPPYS AN XL 7 
IBM FLDPPYS AN XL ? 
730K PRO FLOPPY t 
KOPIERT FAST ALLES ? 
EPROM BRENNER BEI ? 
DRUCKER INTERFACE BEI ' 
RE 332 VORHANDEN 7 
INFO HDLEN. IN 4 
UCCHEN IST ES SOUEIT. 



= 3 = 

—, S " 

ill 

oo £ o 
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Atari-Leserfragen 



.' r v ,./,,|„ ,■, 
L-.VLfl.llv.r,. 



Veriusi {.PRINT CIIRSQ?); "/".■ 
in man CHK$I20); CHR$Q7>: "Q" ; 
W Zei- OmSjlSO) 






Die Hackerbibel 




l-J-T,,lJ>T^dll.l=l 



'!> DEN COMPUTER ZUHAUS 



Suchen Sie Hard- Oder Software 
fur Ihren ATARI 800XL Oder 130XE 
Computer? Darin sind Sie bei uns 

an der richtigen Adresse! 

Wlr sind die Spezialisten fiir diese 

Computer. Wir haben die richtige 

Software, das passende Zubehor, 

und unser Reparaturservice hilft Ihnen 

bei Problemen schnell und preiswert! 

Sie f inden uns auf der Hobby-Tronic, 

Dortmund, in Halle 6 

vom 18.-22. Februar 1987 



TELEFON: 

0208/497169 

Compy-Shop OHG 

Gneisenaustrafie 29 
4330 Miilheim/Ruhr 



ATARI Compulii,Kon»l4-5/B7 

Computer-Lexikon 



Alert- Box 






eliiianiiide-rReixlna 
leschriebcnbcdcutetl- 






Action! 



1 n I, ram -*h en 
(Bank-switching). 


It unksivi idling 

1st ein Computer mi ln i e lirSpciehc rl ,u^=rWe.,al S semPr U « 

™v ( ™l M | S »» J„.Grcn«;i^:l.,-iii. '■?(': ^i-iKlu,,. 


AES 


man ;'_> U.,iik™.itching. 


Ahfcllrzun^ fur Applikaiiuii rnnronnieni Service. Ein l"ejl lies 
■:". r :i r . k FiunJ-.-i-.tiiMl.T Mi.iiSI E\ MKrnmmii da- /eiclincii 
„„d vocalic, konipl^t- Or .'A.^,., v. torn Ucirichw.i>ici... ■.-!=.' 

Akuslik-Koppler 


Bask 

Ba S ic ftal SUn sir U kti,riertab e clcl J ..i. i"ahe. sebr IcichI *u erle 


A'i'.'s;" 


Baud 

Die L lK'ii|-.-.ri-.|-.^-.-:!i^i"! | : , .kL'^ rvi 5JFI. and m fcjud IB 
fin Srkundcl jniit;:.' licit Da icdtieli iielwn den sieben mk'r at 
liatcnhils iiiK-h -in, 1 ! Sicpp- ur„) I'm i.!l;liil= liberiruiMn uciil- 
in Jit d'l'sklive |lh.T'::iM isjswlmindsckvir tWinei als Bantir 






Ab1tui?uiii> lu ' Do pmc 
CAM 



:lnni,.['KI.,-ii,Lv-.i '.i..cl|..i,|-,^l: m.,,: Wahrend <:as BIOS Werkstii 
;ilM .Ik' fur den io»eili, W n R<:.ine: passL-nJcn KeleMc k-rcil- 



SSSS 


^WtoseMmmtt 


Zahl^und^ 


Centronics 


RUtter 


JS5SSS 


Tienen ST- Mud 


EigHUlkhcinDnii; 
ic panfcte BusAen 

Cobol 



Compiler 

Bci L'ompiler-Sprath™ iiiufl der I'rcsmmmkrvorganj: wie folgl 



,!,':'", '.' ■■'. : . .... ■.'." ." ■■ ■.■ 



;n Mj.l^rmiHkis.Tii 



n. GtOfien ZihlBB (fa 251, ko 



wfchl. cincn CONTHOI.C 









Sjntmia.liabeiiAnfaiiirorwiiireSdi^ii.TicfccitHi. " undiwajdann. worn dirwi -sich meat, einmfll meter odcrweniic 

CAD 
Abktaun fiir vom Com U fcr rmttrstttmes Enlwerfcn und CONTROI - R 

i. in.shruhunt! Kir Reset. also den Warm-start des Ci>mpu!er 
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6502-Maschinensprache 

Ein Kurs fiir Atari-User - 5. Folgc 






Zwei weitere llrfelik. die dar. unterbric 



ahnlich wie RTS. Si 


,;i ,...: 


r™sr.. 


j:, 


mm&mDciiMBai 




f£ T :Hz 


mory) 



Push mid Pull 



h. I ll!! ! h , 'I' l "J Weitere Befehle ^"^' 



Cbcfblick wurifcn Jk- \i i^l-^diiMiT rSK (.rump t.i Sub- mil lOCHt 



KFll-.'Aii^jJilt^ 1 .111 I 



Ablauf ilcs Program 






Listing 1 


• IftHLENRATEN 


IDtBs 


VI. 02 
1987 


ICCOn EDU (142 

icarn sou titj 

ICBftL ESU tS44 


K 


ie-Syti 
-Byte 

-Mthh 


icbll edu ma 

ICBLH EDU *Z*1 
ICAI1 ESU 134ft 
IC0I2 EDU I34B 


iuSlt 


-Byte 1 
-Byte 2 


™. ™ , 


Ditti 





ATARI 
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CCLOSE 
CBTIT 


EBU 3 'flit 


',:::" 


C6BIN 


EDU 7 '61 


:;:::; 


CIDV 
RANDOM 


ESU »E456 CIO 
EQL »D20A luf 


Einspr 
lllllB 


S 


EDU »'B RETURN-Zal 


. ,,.„ 


ORG »ABOO 




MENU- 


JBR CLSEKEY 
JSR DPENKEY 
LD» ITITELlL 


iocs s 


SPIEL 


LDP ITTEHlL 

JSR PRINT 


KK 


socuna 


LDA SflNCOil 
LER 

ETA IAHL 
DCS NDCHHAL 


lufll 
Hill 



(INPUT) 




'" RWK ..it.r.-> 


rung 


KLEINE 


JBfi PRINT 

3KP RUNDE miter") 


'/■"..r Bcr. 


_ ;„.,. 


DFB CLE 






ABC "••• JAHLENRATEK •*•*" 






DFB EDL 

ABC D Ich denke >lr tine IlM" 


■ chll 




SF3 EDL 


.thrift 




DFB EDL 






DFB EDL 


ityngiijt: 




DFB EDL 


lliuhl 
l.hl la 


8r 


ASC -Riten Sli Ml..." 

itl-Virlibli 




tn h 


,r UNTERPRDGRAANE 


uck.n 


* 





ETA RPJEN 

BNE UNC-LEICH 



jup spiel 
h 9cc kleiner 

LDY ITBROSEi 





.... 


BPENKEY LD» M20 


open-b. 


m 






STA ICftKl,* 


Sit Hil 


»-B Y tM 


und Di.u.d 


ia? 


JSH CIDV 







L Tilt Sti 


»•••• 


i Tiititur-IDCB iclili* 






nm Hpi 


a- 


LDA CCLDSE 
STA ICCOM,* 

RTS 


IDCB v 


;■;;;;;;,„ 



2 
3 



Ohrenschmaus: 
Soundmachine 

Btnt.-Nr.AT1 29.80 DM 

Lehrreich: 

Das Assemblerbuch 

AT 10 29.80 DM 



Vielfalt: 

Atari Power Superbuch 



^Nachschlag: 
Die Hexenkiiche 
i.-i. i ,,■.. i. ..:■■: .' -:.-■,■ 

T dl i^ian jl.u -:-,:>: :■:! iun.1 ;r .wihjl 
Best-Mr. AT 4 29.80 DM 



1 Zuschlag: 

| Disk zu Hexenkiiche 

' Best-Nr. AT5 1! 



6 



8 
9 



Fix: ATMAS-II 
Macro Assembler 

Best.-Nr. AT 6 Diskette 49.- DM 

■ Geistsparend: 
'ATMAS Toolbox 

BesL-Hr. AT 7 19.80 DM 

Praktisch: Monitor XL 

Best-Mr. AT 8 19.80 DM 

Brandneu: Design Master 

BeaL-Nr. AT 9 



Halt! 
Diskmaster 



d» 24.90 



m 


>pe 




itaten-Bestell 


chein 


tg-r 






T£££T™ 




g==,= 




T 


St 




OT ^ „ . 



t AU5GABE. <A>| ZlHir (0-9 

holiei ldi imo IOCS N 
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Autoprogramm- 
Generator 



moglicht ca ' 
.SYS-Hle. 






LOU ICPTIT 
JBR CIQV 



AU lORUN-SYS-Generator 
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ATARI 71 






pexen-s 
ASSEHBLERECKC 


etoft, %10101D10) iminer em Emu- 


Turbo-Tape 


bl auch milglich. nach wie vor keiiennprichl. 

Befehl hilft iveiKr: nJT&taTnkrag'wM SO Baud 

limlaagsamcFormLSiurii Wir- icrsoj'zl. AmdthatTabclleund 






TBAUD" CBAUD.CCB 



Si) tllllklionitTl's! 



Kopterpmgramm 






( II Al U Id der Praxis ' 



l'n.i]:::ir]i;ii k^ii-:.;i F.ii.l ■■' I- 













304 


DA 


A 2, 134,203, 188, 143, 133, 32, 24, B 


si 








303 




A 153,146,203,232,224,161,208,2 




41, 


5B 




eren benulit dn< JTogi-amm vi, r -li!.Ver[r ( 1-V.rmal: Alari- 


304 


DA 


A 169,253,141,80,3,32,34,153,84 










dc^'JIl^g^rji^-'^vM 1 .'!- £" 'T"r"^Wn^TE 


307 

30B 


DA 
DA 


A 201,43,208,31,165,9,41,1,721 
A 133, 9, 173, 118,0, 141, 1,211,784 




309 




A 145,206,141,14,210,133,14,160 


boolen (mir fiir Disk-Bern.!- aen Hcri bc^hii/ligen. 


,1045 




>")• toMB^aMW 


310 
311 


DA 
t 

DA 


A 125,32,26,153,169,224,141,244 
A 2,24,94,142,0,142,128,153,707 




Listing 1 


312 

0S4 


DA 


A 162,40,142,2,211,201,66,240,1 


10 RED •HHiiiiiiiiiiiiimiiHixi 


313 


DA 


A 7,201,67,208,200,141,128,133, 


20 REN t BASIC-LADER t 


1105 




30 RED • CBAUD 1200/1 VI. • 


314 


DA 


A 173,118,0,9,2,141,1,211,653 


40 REM t ICI 1986 By ARNDT BAER • 


313 




A 149,0,133,43,169,153,141,85,9 


SO REN WHtMIHIHHHHMIIHIII 


13 






40 7 CHR* 1 125) i ? i? i? iPDKE 756,204iP 


314 


DA 


A 3,169,141,141,84,3,169,3,713 


OKE 732,1 


317 


DA 


A 141,82,3,149,4,141,90,3,433 


70 7 " BASIC-LADER" 


318 


DA 


A 149, 12B, 141, 91, 3, 32, 45, 153, 74 


SO 7 ' CBAUD 1200/1 VI. 0* 


2 






90 7 ■ IE) 19B7 BY ARNDT BAER" 


319 


DA 


A 174,128,142,11,189,129,133,13 


100 1 17 I? 17 " Bltti linen Moment 








G.duld' 


320 


DA 


A BO, 3, 202, 206, 247, 32, 43, 153, 97 


110 B0SUB 210IGDBUB 500 









120 POSITION 2,10i? ' 1-lifkttttnfll* 


321 


DA 


A 144,3,76,20,152,24,173,130,72 


'DiCBAUD.COH' Oder" 


2 






130 7 > 2-Ct.i.ttmfil. ichrtiban ?" 


322 


DA 


A 4,105,178,141,84,3,173,131,76 


135 CLOSE (IeOPEN 1 1 ,1 , 0, "K: ■ :GET 11, K 


9 






EYlCLDSE 11 


323 


DA 


A 4,103,0,141,85,3,169,0,507 


140 IF KEY049 AND KEYO30 THEN BOTC 1 


324 


DA 


A 141, BB, 3, 206, 129, 4, 173, 129, 87 


143 TRAP 190: IF KEY-49 THEN CLOSE #1:0 


325 


DA 


A 4,74,141,89,3,110,88,3,512 


PEN #L,fl,0, "DiCBAUD.COM": A- JSfiiftDSinL* 


32b 


DA 


A 32,43,133,1*4,3,76,20,152,623 


) ,16,11, 30906, 047i:GOTO 160 


327 


DA 


A 173,130,4,133,203,173,131,4,9 


ISO CLOSE IliOPEN 11,8, 128, "Ci"iA=UBRf 


91 






ADR(HLI), 14,11, 38912, B96) 


328 


DA 


A 133,204,160,127,183,128,4,145 


160 IF A>127 THEN BQTD 190 


,10B4 




170 CLOSE lit? i7 "FERTIB Ill'tfM 


329 


DA 


A 203,24,134,16,247,173,132,4,9 


190 CLOSE ill? 1? CHRH125I j"I/D - FEN 


35 






LER NR."|PEEK(193)iBDT0 120 


330 


DA 


A 133,2,173,133,4,133,3,149,730 


210 DIN HLK40) 


331 


DA 


A 224,141,244,2,32,7,153,32,833 


220 RESTORE 230IFOR 1-1 TO 35lREAD AlH 


332 


DA 


A 23, 133, 173,128, 153, 20B,3,10S, 


L* 1 1 , 1 J =CMR*(Al {NEXT I 


949 






230 DATA 104,104,104,170,104,104 


333 


DA 


A 10,0,74,60,152,24,165,203,690 


240 DATA 157,44,3,104,157,69,3 


334 


DA 


A 105,6,133,203,163,204,105,0,9 


■ 290 DATA 104, J57,6B,3, 104, 157,73 


21 








335 


DA 


A 133,204, 108,203,0, 10B,2, 0,738 


270 DATA 132,212,149,0,133,213,94 


336 


DA 


A 173, 7, 22B, 72, 173, 6, 228, 72, 939 


290 RETURN 


337 


DA 


A 152,96,173,37,228,72,173,36,9 


300 DATA 255,255,0,152,40,155,0.7,884 


47 






301 DATA 0,152,13, 152, 149, 40, 141,2,489 


33B 


DA 


A 228,72,96,162,16,32,66,228,92 


302 DATA 211,24,94,32,90,154,162,0,767 








303 DATA 240,2,142,1,169,204,141,244,1 


139 


DA 


A 48,2,24,96,132,204,192,136,83 


143 


4 







340 DAT 


240 


248,169,40,141,2,211,162, 


382 DATA 


254,141,1,211,169,230,141,161 


1233 






,1310 




341 DAT 
9 


0,1 


4,203, IBS, 72, 134,32,26,80 


381 DATA 
1174 


215,141,63,231,169,2,141,168, 


342 DAT 




166,203,232,224,18,208,24 


384 DATA 


715,141,70,231,169,234,141,3, 


1,1449 






1246 




343 DAT 


169 


0,133,213,165,204,133,212 


383 DATA 


217,141,4,237,141,3,217,14*,! 


,1229 






171 




344 DAT 


32, 


70,217,32,230,216,162,1,1 


186 DATA 


118,141,9,237,160,21,185,48,9 


345 DAT 


134 


203, IBB, 128,5,48,9,32,747 


387 DATA 


134,153,249,237,116,16,247,16 


Hi DAT 


26, 


33,166,203,232,24,144,240 


3,1357 




,1169 






188 DATA 


206,133,16,141,14,210,169,64, 


347 DAT 


152 


41,127,168,32,24,151,160, 


933 

389 DATA 


141,14,212,160,63,185,253,154 


34S SAT 


155 


32,26,153,56,96,0,235,773 


,1182 




349 DAT 


1,7 


1,128,4,179,253,128,70! 


390 DATA 


131,0,206,136,16,247,169,2,92 


350 DAT 




12B, 67, 58, 125,155,4,341 






151 DAT 




0,0,0,0,0,0,0 


391 DATA 


141,198,2,9,14,141,197,2,704 


352 DAT 


0,0 


0,0,7,155,1,67,230 


392 DATA 


96,160,0,162,254,177,203,142, 


153 DAT 




5, B5, 48,32,49, 50, 4B, 461 


1194 




354 DAT 




7,49,2,155,1,40,99,441 


393 DATA 


1,211,145,201,162,233,142,1,1 


355 DAT 




2,49,37,56,54,32,98,419 


120 ■ 




35i DAT 


121 


32,2,155,1,32,32,65,440 


394 DATA 


211,230,203,165,203,708,236,2 


357 DAT 
663 


114 


110,100,116,32,66,11,114, 


4,1480 
195 DATA 


163,204,103,1,133,204,197,205 


3SB DAT 


32, 


,135,3,3,3,3,3,206 


,1214 




359 DAT 


1,3 


3,3,3,3,3,3,24 


394 DATA 


208,223,96,0,0,0,0,233,784 


360 DAT 




5,133,4,0,7,155,1,483 


397 DATA 


253,235,0,21,21,21,21,21,615 


3il DAT 


UJ 


2,32,46,46,46,66,65,496 


398 DATA 


21,21,21,112,112,112,112,112, 


342 DAT 


83, 


3,67,47,68,79,83,32,532 


623 




363 DAT 


155 


5,3,6,135,4,0,7,335 


399 DATA 


112,112,112,235,170,170,170,1 


364 DAT 


in 


1,194,2,32,46,46,44,322 


70,1271 




363 DAT 


", 


6,43,60,82,79,71,82,592 


40D DATA 


0,0,0,0,0,0,0,15,13 


344 DAT 


65, 


7,77,32,76,43,68,69,529 


401 DATA 


23,21,20,21,20,20,18,10,153 


367 DAT 


7a, 


33,5,3,6,155,4,0,406 


402 DATA 


0,0,0,112,176,141,140,160,752 


36B DAT 


7.1 


5,1,193,2,32,46,46,484 


403 DATA 


0,0,0,0,0,0,0,224,224 


369 DAT 




94, 32, 85, 7S, 68,32, 193,728 


404 DATA 


208,176,112,226,2,227,2,4,939 


370 DAT 


155 


5, 3, 6, 135, 135, 1B6, 2, 667 


403 DATA 


152,224,2,223,2,13,132,21,791 


371 DAT 


ISO 


2,174,2,166,2,138,2,686 


500 RESTORE 300lFOR 1-0 TD 103i5UH-0 


372 DAT 


240 


2,229,2,220,2,213,2,910 


510 FOR T 


■0 TO 7:READ AiPDKE 38906*103 


373 DAT 

a 


205 


2,199,2,190,2,233,133,100 


+T,A:SUh* 
320 READ 


9UK+A:NE«T T 

flilF AOSUH THEN 7 i? CHR*U2 


374 DAT 


73, 


7,79,32,45,32,70,101,479 


5);" D 


itenf.hler In Z.ilt '[SOO'liL 


373 DAT 
697 


104 


108,101,114,32,78,114,46, 


1ST 300+1 

530 NEXT 


END 
1 


376 DAT 


173 


1,211,41,234,133,118,163, 


540 RETUR 




377 DAT 


It. 


33,206,169,0,141,14,212,8 






91 

378 DAT 


141 


14,210,133,16,133,201,169 


Listing 2 












379 DAT 


1*2 


133,204,149,208,113,203,3 


20 REM ■ 


COPY 1202/600 ■ 


2,1276 






30 REK < 


(c> 19B6 By Arndt Bj.r t 


380 DAT 


219 


154,169,214,133,204,169,0 


40 REti 




,1262 






30 REN ■ 


ZUERST CBAUD 1200/1 LAUFEN • 


381 DAT 


133 


203,131,205,32,219,154,16 


60 REH 


LASSEN !!!!!!! * 


9,1248 






70 REM ■ 





60 POKE 65 f lsRflH=INTLPEEK(540ITI/JH3: 


Bytea" 


POKE 5401 7, RBM+l 


310 IF A<12B THEN LET A-2 


90 DIN HL*(51>iBA5T0P-INTKPEEK(144>+2 


320 CLOSE IliPOSITION 2 , ZEI 1 ? 


54»J>EEK (1431 +100) /256) 1 1EMLD- INT ((BAST 


330 IF A<>136 THEN SOSJB 330: IF KEY<>2 


DP+2)/2)t2*4iHlLEN-(192-HEHL0H2S6 


7 THEN BOTD 200 


100 POKE IO6,(1Et1L0:6RflPHrC5 OlPDKE 736 


J40 SETCOLOR 2,13,4l3ETC0LDR 1,0,14 


,204 


350 7 17 "BPEICHERN ait "IBOSUB 470 


110 7 :? i? "WichtigiUi alt 1200 Baud 


360 POSITION 2,ZE1:7 :7 *( PLAY, RECORD 




und RETURN. >• 


t CBflUD 1200/1 " 


370 CLOSE *I:DPEN #1 ,B, 12S , "Ci " 


120 7 ■ Eingeladan M.rdin 


360 A-USftlADR<Hl*),16,ll,hlEhL0e236,BLO 


130 FDR 1-1 TO SliREAD fl:KL* 1 1 , Il-CHRf 


390 CLOSE *1:S0UND 0,0,0,0 


(A)lNEXT I 


400 IF A>127 THEN GOSUB 530lEOT0 420 


140 DATA 104,173, 1,211,9, 2, 141, 1,211,1 


410 ? i? ■O.K,'i7 


04,194,170,104,104 


420 SETCOLOR 2, 12, 2l SETCOLOR 1,0,12 


150 DATA 157, 66, 3, 104,157,4'!, 3 


430 7 *l,..Noch sine Kaaie "|7 "2...N* 


160 DATA 104, 157, 6B, 3, 104,157,73 


uei Original":? "3...Endi" 


170 DATA 1,104,157,72,3,32,66,228 


440 CLOSE t2:0PEN 12,4,0, "Ki "i BET *2, K 


1B0 DATA 132,212,169,0,133,213,173,1,2 


EY:UAHL=KEY-4B 


11,41,253,141,1,211,96 


430 ON NAHL GOTO 340,210,460 


190 7 i? r7 :G05UB 540 


460 END 


200 GRAPHICS 0:POKE 756,204 


470 7 i? ■ 1..1200 Baud ndar":7 ■ 


210 7 CHRl(123):7 " Baircopy 1200/1 ": 


2. .,600 Baud 7 1, iZEl-PEEK(84! 


? " <c) 1965 byi7 " Arndt Baar -.P 


4B0 CLOSE I2:0PEN #2,4,0,"Kl" 


OKE 732, 1 i? HILEN|" Bytes free." 


490 OET »2,KEYHF KEY-49 THEN POKE 340 


220 BLCCK-0 


17,RAH:GDT0 320 


230 SETCOLOR 2,0,2]5ETCDL0I) 1,0,12 


500 IF KEY-50 THEN POKE S4017,RAH+1 :6D 


240 ? I? "EiNLADEN ait "iSOSJB 470 


TO 520 


250 POSITION 2,ZE1:7 :7 "< PLAY und RE 


510 BOTO 490 




520 POSITION 5,ZE14KEY-31:7 CHR$l27>tC 


260 CLOSE UliOPEN 11 ,4, 128, "Cl " 


HRK311 


270 7 i? 'Progra.. laedt ': ZEI-PEEK1B4 


525 RETURN 




530 POKE 752,1:7 CHR* 1125) ; ' I/G - Fthl 


280 A-USR(ADR(NL*),16,7,HEML0«256,HILE 


er Nr."i*:7 iPOKE 54017, RAM+1 




540 7 ' < bellibigt Taite >" 


290 BLOCK-PEEK (856) +256 tPEEK(B37) 


550 CLOSE t2l0PEN 12 ,4 , 0, "K: * 


300 POSITION 20,2:7 -Laengei "jBLDCKj * 


560 GET 12,KEY|RETURN 



Komprimierte Bilder 
problemlos laden 



ATARI 



£S,9s3'd£ SHir"""™' 


44, 111, 231,721,24, 1*5,215, 115,81,111,2 






Jlti niLdiswri Rvi;- in VISLI- Biklinfnrmarioil sowie die 


12111 DATA 221, 116,48, U9,l, 113,221, 14 






'si Hit 7 J..-s 1 . ParamuiT-Byres renlilockc. Ms das File valfalln- 




LtoSr^ S^^ *»at.T wu " fe 


12121 DATA 131,214,144.21, 14*. 1,111, 2! 


9,21,165,217.115,1, 131,215,133,217, 145 




,21 fl, 115, I, 133, 114.133, 218,143 


Listing 1 


32131 BftTA 211,218,7,145,214,218,3,24, 


l*t, 141, 145,222, 14. 15. 14?, 1,157, 72, 3,1 




57, 75, 3. 32. 84.228.133,221. 24 


4 KM in BASIC 


32118 DATS 144,154 


7 REM • Pettr Bhmir St 




11 DIM FMlililtSOSUB 32IIHBDSIJB IHIl 


Listing 2 


POKE Hi, PEEK II ID -14 


2t TRAP 4IMHINAP iliBRAPHlCS I: 1 if 




■eirift/Fllinmi 'II INPUT FIK 


- in C Action^ 3tr petar B Blinzer r 'e6 


31 CLOSE III OPEN ll.U.FNI 




41 POKE SAI,EH.ELiPDKE Ul.DLEHiPKE B8 


BYTE modus, weitere pixels. 


,8CLlP0KE BV.SCH 


spaltenhaelfte. zeile 


SI )NK=UBRIA[IRIM1L0ADI)1 


CARD laenge. savmsc-I5a . sdlatl=$023B 


48 CLOSE IliOPEN * J .4 .». 'k: -r BET l!,A 


BYTE POINTER addresael . addresse2 


71 CLOSE II.BKAPHICS IteDTO 21 




I1H 6HAPH1CS 24 


PROC Leae VorspannU 


1111 1LEL-PEEX Oil) iDLEH-PEEK (SMI :SCl 


byte zaehler 

FOR zaehler-1 TO 7 


■F E E 1 1 B B 1 : SC H> PE £* 1 B 1 1 1 5L P ' DL E L 1 2! 1 1 DL 


EH*1 


DO 


1*28 IF PEEKIDLPJ-I3 THEN POKE [LP, 14 


GetD(l) 


1B3B IP PEEKl[LPi=7? THEN POKE DLP.7BI 


OD 


DLP- UP* 2 


modu3-GetD(l) 


1141 IF PEfKtOLPIOiS THEN DLP«DLP+l:fi 


FOR Zsehler-I TO 5 


DID 1121 


DO 


1ISI RETURN 


GetDIll 
OD 


Milt FDR >1 TO 27SiflEA0 ZiDEKOAQKl, 


FOR zaehler-B to 4 
DO 


H=CNRI[7.lrSliN=5UN.!,NEIl ] 


12121 IF SUHOHI91 THEN 2 'FEHLERHAFT 




E DATA IEILEN'MNIi 


FOR zaehlei— 1 TO 9 


1213! RETURN 


DO 




GetDCl) 


H, 1, 132,213, 169,1, 157,72, 3, 157, 73,3,1 


OD 








PKOC B-tz«_V a ri«bl« n «irt.() 


14,3,133, 182, 2, 2M,1«2. 28, tfl, 219, 14. B, 








addressel-aovmsc 




RETURN 


,I,1»,2H,J37,T2,3,I»,TJ,J 






0,133,222, 112,41, 127,2W,24,lit,l,lS7, 


PROC Lese^Blockpat-ioietern 






12N* DATA 214,149,1, 1)7,72,3, 137,73,1 




,32.84,228, 113, 211, I4U. 157, 72,1,117, 


71,3,32,06,220,133,221,141.1 








211,1, 133, 213,163, 214, 211,1,133, 214, II 


ELSE loenge-hilfe & $7F 


4, 171, 145,212,211, 2,218,11,211 




12111 DATA 215, 210, 73, 231, 216, 211, 6', 1 


RETURN 



ATARI 



PHOC Erhoehe Adregse H 
IF modua-2 
THEN addreaael--+l 
ELSE zeile— +1 

addreasel-- +3B 
IF zeile-96 
THEN zeile-0 
IF spaltenhaelfte-B 

addressel=addresse2+4B 
addreasel=addresae2 


PROC Hauptprocedur H 

DO 

Graphica(B) 

Oefrne File]] 

AnticEO 

Lese Uorspannl) 

Setze Variablenwertel) 

Lade BildO 

taete-GetD{7) 
UNTIL taste-27 
OD 
RETURN 


FI 
FI 

RETURN 

PROC Lege DatenblockO 
BYTE Pixala 
pixela-GetDfl) 
WHILE laenge>0 
DO 
sddressel"-pixela 
Erhoehe_AdresseU 

IF weitere pixelaOB AMD laenge>B 
THEN pixels-GetDlll 
FI 
OD 
RETURN 

PROC Lade BildO 
DO 

Lese DatonblockU 
UNTIL addreaael^-aavmsc+SlEBB 
OR addreaae2>-savmac+4e 
OD 

RETURN 

BYTE BRRAY~name ( 15 ) 
Poaition(2,3) 
Pi-intl'Geraet/Filenaroe: ") 

Closed) 

RETURN 

PHOC AnticEU 
BYTE POINTER dlist 
BYTE wert 
Graphics (24) 

dliBt'-dliaf £ SFB % J0E 

THEN dlist~+l 

FI 
OD 

RETURN 




Korrektur 

DATAsn . r TOOmiissin 
700 ZL-ZL + 10: READ AS: NEXT N: IF AJ < >"X" 




Die Super-Hilfsdishette fir Hirer ATARI! 

IMIHwWir - in ilrj "' 

* BRSIC-Eruejterungen vie ^^^^Mh 

* Tolle Hi 1 fsprogramrne uie fPt 4^^B 

* niitzJ iche MS-Prwarre wie ^ff* w 

-Zej:r.5n=stj LOPC^SH'JE.'CCPV _j 

und u isles nelirinur mi 29 . - 
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Stoneguard, ein Spiel mit Ballen 



JCUXEiu 


S 


.nir 


.;. : .',. 


,:•:. I-. !S! 


.-,..|.l 


III niuali.-l 


Cn 


■TO*. 


vieri S k e 


M. 


jCWC 




(l™ 


hi™!: 


SELECT 


ukmldti 


da 





ATARI 



Vokabeln lernen mit dem Atari 






:n * 'i.QLJITSynvak 



■Vofc^ldMiibiiLlragLJ^ 
hLraSpctetierb.findM.Hfer 
lien folsendf die! Abfiagc- 



zz 


AUTORUN.SYS 


DfeVrn 


11 REN tt AUTDKUN.SrS BENERIERUig « 


r Ruhc 


21 (EM « MATTHIAS HUNDER I9B5 




ana 


'I'-'itm-'' 


lit DIM DIIIUiDPEH ll.B.I.'DiAUTORUN. 


kan**. 


Ill ? -AJTORUH.SVB >ird niKrltrl...'! 




121 READ DtlREAD PlIF »="»" THEN 7)1 








141 FDR I'l ID LEKIDII STEP 2 




131 H'ASCLDXMH-OiL-ASCIDIIWJtl 




11-48 




141 MH-(H>?tt7Hii+L-IL>Wt7iS=S+DiP 




UT 11, D 

171 NEXT IlIF S-P THE* 121 


lasscn 




in T :? IT 'DATENFEHLER IN !EILE 1ft 




EKI183HPEEKI 184 HHis CLOSE IliSTOP 




211 m 1 FILE SCHL[E3SEh 




211 CLDIE II 




221 7 i? i? ■MJTMIM.Sfa Drdnunfligiiii 








231 END 






chncbc- 


CA 1 EFAA2 1 MtH EE Mi; 8; J 1 1; i»: 1 4 1 Jet t . : 


fcLklon 


1111 DATA HUPQWOOtTWCttltHt 




UHttii an J «n if ! i J= n ;' h ; bimmi . , 




ill 


■"■i'jk 


1121 DATA mi:(E»''»8^.8:>i:M:iFl: 




H3 




1IM DATA HEimM*l)HE«EJt;F«()E»t 




4d W68M2AM i*K ite : K( . K tt«e • i E« : . < 




349 








M 12A21(8i: F b8m ;f 2; t(F ( Ff HI Mtta- . j 


indliche 


1131 DATA t4EC5Ktl ::: FEI(:£!i;mi(F 




ff nil Ml UM : 1 »• :■ IW KM silt ew . 4 


^LOAD 


117 



4£j£&<f> 









,^'0,0 






DIABOp 



BESSH 



International ""!."" 
Karate §~ 

Si" 25.90 ?» 39.90 SSL 



U.iwummm-mmftrm 




Sea Bandits 

d„19.90 

i 

Boulder Dash 
Construction Set i 
S'25.90 E'39.90 




mmi 



Software- 
Bestellschein 



Moonshuttle 

©opoelpacfc cass/Disk.l 

.19.90 



Y oka beltrai iter 
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H*tfia* ' Hus«. 



ATAR 





1111111 


"* 


|atari 







VV ' na I wi sliindig die aktuellsten 
Atari-TitelfurSiebereit. Einfach 
nebenstehenden Beste'lschein 
ausfiillen und das gewiinschte 
B'.joI- kon-ni ins Haus. 



: 


T™ 


„ - M1 



i — s — 


™™* L 


1 ATARI ! 









"™"* 



1 , — 


*-„ ■30« MOXLKUXL 


atari 










«— -™»™ o«»- j 





^r<~^£ 


*-="■ 


{atari 




"*-""i»« °»«- 



'•■■■"' *m ' 



B U 


C H V E 


R S 


AND 




\ 




> 


, r s 


ATARI 


||3£-~ 


m 

iseb 


lll=i§g 


IT 


I 




HH 





**ZK 



7~ 


au(3.mln'nBlK>L/B0a<u 





liSissE 



Buch- 

Bestellschein 
























































°^=ir^ 


"*"* 








J1U1 




~™ 


==3£BS~ 



Tl 99/4A 
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r ~^A 



^^ (TI99/4A 



Liebe TI-Freunde! 


Submarine Commander 


Nachdcm der CwnoivK- 


vertnetanwirdundraaiKlaher 


AudifiirdcuTImKl 


mitller- eina verbliitfel.de Nactaahnumg 
































muse- Spiels iraiS man zuerst auf dcr 
























ic odcr stellt, eincn [cindlictian SchilTs- 


















s^s^^^^it 


iJ^Wni' . J ' ^ 


^"ittfoSSS" 


£« SK^1X^» 


vitaKnma, . ! i*j^f^ *■ 


IwiD^Lspiel^rXn".""' 


jterKmiuwicnefeni 




EHrV 


*■:. ■'^^z^S'^a": 


i S 


unj! der Gber das Peris^np umsLhalial. 










Khh^r^''"^^"^ 


S^lKtaWUW* 


^hJ^t^raTdn"? 




""Fra^bO^if arnfMcT aai 


ncrAnsdiaffuTiB.'rk'klik'ii.. 


"r^nskh^nm'cd! 


% Tl o*r T™kn™ rd'" £*£"£' 






















































a'^ Ch L."nJ n U kl"L n 


tit n ™"^ Spitl M , id , h dic 


n^^n»%mdir^ 


S=U™^iinlcli™wM ,a .^l 


mm dm Lta^bunj 


darstel- enitc QualilStslcategDTic ein- 


























































nJ n 1 0- [ML 


B-'ntlil.i'-wN^M.'r'in.Tivr 


sc-h^-jri-liElTeit und di 


Sciien- lusaQlichc Uags bestiriil. 


t!^n1<lS U ^li^'''^im! 


ahschieda rnifh bis ii.tr nteh 


einam^^alrilttT 


werdca SS Haub. Baan 




Res Mai. 


miissen. Auch bei de 


Einsiel- preis: c*. ».- DM 










dieser Compiler als Freewan 


WSta«S™t. 


beslictii das Program 


m dutch ISfeBntt 


[ 









Tl 99/4A 

Bausteine des 
TI99/4A 



FORTH TI-LOVERSONLYfl 




GENEVE 

96U) MICROCOMPUTER (MYMO 


PCs » Periphwlan 


MICRDPENDIUM „_..___ 


gMH 



fce. ,1 , , 


Lc cine Tjsta- 






2. Der Drucker ubcimiiic:]! 




















Die ersle Meniin'le ncnri 
















frozen vergeuiki. Da. zucia- 


(primy Joi" i'luiL-is,.]- soforl in 



so TI99/4A 




IEC-Normrcihen 






Widerstands-Decoclierer 



120 DN WARNING NEXT :: DIM Hrl93),NC25) ,F*(1JJ 

130 CALL CHARi64,"00ia24424224A5E7' , > 

140 CALL CHAR! 136, ,, 0304080B080B090904b30000000001DOC0200Ci000004FC202QE02BFBA0202 



DISPLAY ATC1,12)ERASE ALL:"! EC-" :: DISPLAY AT' 

1 ATC2, 12):"=======" :: DISPLAY AT (5, 10) ;■======== == 

r(10,9): n PR0DUCED BY" :: DISPLAY ATC20, 1 



, 10):"NORMREIHEN" :: D1SP 
)!"IN I9B6" :: DISPLAY AT 



(24, B) i" 

170 CALL MAGNIFY14):: CALL SPRITE(#1, 136,2, 100, 114) 

180 ! E6-E24 

190 DATA 10,11,12,13,15, 16, IB, 20, 22, 24, 27, 20, 33, 36, 39,43,47,51,56,52,68, 75, 82, 9 

,100 

200 ! E4B-E192 

210 DATA 100, 101, 102, 104, 1C 

, 124, 126, 127, 129, 130, 132, IS 

220 DATA 137,138,140,142,1' 

,169,172,174, 176, 17B, ISO, IE 

230 DATA 187,189,191,193,15 

, 232, 234 , 237, 240, 243, 246 , 24 

240 DATA 255,25B,26I,264,2f 

, 3 16, 320, 324 , 328, 332, 336, 34 

250 DATA 34B,352,357,361,3E 

,432,437, 442,448, 453, 459, 4E 

260 DATA 475,481,487,493,45 

,590,597,604,612,619,626,62 
270 DATA 649,657,665,673,66 

,306,316, 325,835,345,356, 36 
280 DATA 887,898,909,320,93 
290 ! N0RMR.,FARBCODE,T0L. 
300 DATA E6,,20,E12,SI,IO,E 

I VI,. I 

310 ! FARBCODES 

320 DATA SI,aD,SU,BR,RT,0R,GE,GN,BL,VI,6R,US 

330 ! TEMP.KOEFFtZtENT 

340 DATA 5W,200,BR,100,RT,50,GE,25,OR,15 

350 FOR 1=1 TD 25 :: READ N(I>:: N(I)=NCI>/10 :: NEXT I 

360 FOR 1=1 TO 193 :: READ K(I):: HCI)=HCI)/100 :: NEXT I 

370 FOR 1=1 TD 8 :: READ NtU) , T»U>, TCI) : : NEXT I 

3B0 FOR 1=0 TO 11 :; READ Ft(Di! NEXT I 

390 FOR 1=1 TO 5 :: READ At(l),A(I):: NEXT I 

400 CALL DELSPRITECALL):: DISPLAY ATrs.DERASE ALL: "FOLGENDE EINGABEMOEGLICH-": 

: "KE1TEN STEHEN ZUR AUSWAHL : " 

410 DISPLAY AT[10,1):"1...EINSABE DES UERTES": : "2. . .EINGABE DES FARBCODES" 

DISPLAY AT(17,I):"HAEHLEN SIE AUS : " :: ACCEPT ATI 17, 191BEEP VALIDATE! "12- 1 ) 



106,107,109, 
135 

145,147,149,150,152, 
184 

198,200,203,205,208, 
252 

>71, 274,277,280, 284, 
344 
,370,374,379,383,383 

511,517,523,530 

,690,698,706,715,723 

2, 953, 965, 976, 9BS 

J,5,E48,RT,2,E96,1 



118,120,121,1 
162,164,165,1 
221,223,226,2 
301,305,309,3 
412,417,422,4 
562,569,576,5 
76B,777,7B7,7 



1 , E192, GN, . 5, E384, PL, . 25, Ei 



,154 


156 


I5B 


160, 


,210 


213 


215 


218, 


,297 


291 


294 


298, 


,392 


397 


402 


407, 


,536 


542 


549 


556, 


,732 


741 


750 


759, 


,1000 







riEti 

430 I 



450 DISPLAY AT(6,I):"1 E6 TOL. :+-20X": : "2 E12. . 

...E24.,..TtJL.i+-5K": :"4 E48 T0L.I+-2I" 

460 DISPLAY ATC14,1):"5 E96 TOL. 

470 DISPLAY ATC22, 1): "UAEHLEN SIE AUS : 

456")SIZEC-1):NI 

480 DISPLAY AT'5,1)ERASE ALL:"GEBEN SIE DEN GE5UCHTEN": 

:: DISPLAY ATI24.6) ; "0. 1 @ < R < 1EB 8" 
490 ACCEPT ATCIO.HBEEP VAL1DATE(NUMERIC)SIZE(12):R 
500 IF R<.1 OR RMEB THEM 490 
510 A3=.l 

520 IF A3<=P THEN A3=A3*10 M GOTO 520 

530 A3=A3/10 :: 3=1 i: IF Nl=5 OR Nl=2 THEN S=2 ELSE IF Nl=4 DR Nl=l THEN S=4 
540 C=-S+i ;: U1=A3 :: IF Nl>3 THEN 5B0 
550 ! E6-E24 
560 C=C+S :: W2=W1 :: WI=NtC)*A3 :: IF WKR THEN 560 ELSE 530 



570 ! 
HBO C 

590 R5=U2 :: IT 
600 IF G-l THEN 
610 MI=R5-R5*Tt! 
/R :: IF ABSCGR! 
620 IF Nl>3 AND 
630 IF R5< 10000 
£40 ft*(l)=F*(VAL 
650 R*(2)=F*(VAL 
660 IF Nl<4 THEN 
670 R*i3)=Ft(VAL' 
6B0 M=LEN(STRt(R0>)- 



W1+W2)/2<R THEN R5=W1 

ooo 

J/100 :: MA=R5+R5*TCN1)/It 
AB5(KL>THEN K=KL :: KL^GR 
THEN R*<1)="MEIST ALS t 
I R0-R5J1000 ELSE R0=R5 
SEG$(STR*(R0),l-,l))+2) 
SEGi(STRttR0),2,n)+2) 
K=3 : : GOTO 6S0 
5EGSCSTR*(R0>,3,l))+2):: * 



)/R :: GR=CMA-RniOO 

k=o : : amrj 700 



: Rt(K 



! '=T! 



720 DISPLAY AT (4 
730 DISFLAY AT(6 
740 DISPLAY ATCB, 
750 DISPLAY ATUO, 



41ERA5E ALL:"E R6E!t 

1);"GEWAEHLTE NORMREIHE 
1):"GESUCHTER Hl*|R)"« 1 

■'NAECHSTER R:"jR5; 

:"KL. Bj'jHIj"*'! 



'GR. 



J I SPLAY ATC2.4 



: DISPLAY ATI1 



G VQM SESUCHTEN R : • 
760 DISPLAY AT(16, 1); "KL. ABU. : n ;KL; "'/.": : "GR. ABU. : "[GRj "T." 
770 DISPLAY AT(2Q, 1>: "FARBCODE : » :: FDR 1=1 TO K+l :: DISPLAY A 
):: NEXT I 

7B0 CALL J :: GOTO 400 
790 ! EINGABE DES CODES 

BOO DISPLAY ATf4,l)ERASE ALL: "ANZAHL DER RINGE (3-6) : 
EP VAL IDA TEC 3456 ")SIZE(-1) :A1 :: R*C4>="" 
BIO DISPLAY ATll.llERASE ALL: "SW. . .5CHWARZ BR...BRAUt 
..□RANGE"; :"GE...GELB GN...GRUEN" 

B20 DISPLAY ATF7,1):"B! BLAU VI. . . VIOLETT": : "GF 

": :"SI...SILBER GO.. .GOLD" 

B30 DISPLAY AT(1B, 1): "GEBEM SIE DEN FARBCDDE EIN :" :: F 

040 DISPLAY ATf22,l>:Ij r .RING : " :: ACCEPT AT(22, 121BEEF 

:R$U):: FOR K=0 TO 11 :: IF R*(I)=F* (K>THEN B60 

S50 NEXT K :: DISPLAY AT(22, 1) : "RINGFARBE GNBEKANNT I!! 1 

860 NEXT I :: IF AK5 THEN K=2 ELSE K=3 

B70 FOR 1=1 TO K :: FOR 0=2 TO 11 :: IF RSII)=Ft (D)THEN ZU)=Q-2 :: GOTO S90 



,I*3-2!:R*(I 

■ :: ACCEPT AT(4,2B)BE 

:'RT...ROT OR. 

.GRAU WS...UEI5S 

1=1 TO Al 
ALIDATE<UALPHA)SIZE(2> 

: CALL P i ! GOTO B40 



3 NEXT G :: I 



l"Rt»a ■';:;": UNGUELTIGE FARBE" 



CALL F 



TD 11 :: IF RSIK+1>= 
II R=C*10"M :: FOR 1= 

: GOTO 940 



C*2)=T*(I STUBS T 



910 FOR 1= 
920 NEXT I 
TOt-NS(I) 
930 NEXT I 

940 IF T1=0 THEN DISPLAY AT(22, 1) : "RING" jK+2j ":LING1JELTIGE FARBE" ;: CALL P :i GD 
TO 830 

950 IF Ai<6 THEN 9B0 

9E0 FOR 1 = 1 TO 5 :: IF RSC6>=ASKI)THEN AL=A(I):: 1*="" :: SOTO 9S0 
970 NEXT I :: DISPLAY AT(22, I > : "FARBE FUER ALPHA UNBEKANNT"; :"TRQTZDEt1 WEITERE 
ANALYSE" :: CALL P :: It="ALFHA 1ST NICHT ERMITTELBAR" 
9B0 G=l :: IF T1X.25 THEN 510 

390 Wt="NORMVERGLEICH NICHT MOEGLICH" :: GOTO 1010 

1000 IF R5=R THEN US="UERT 1ST GENORMT" ELSE Ui="UERT 1ST NICHT GENORMT !!!" 
1010 DISPLAY AT(1,4)ERASE ALL: n E RGEBNISSE" :: DISPLAY AT(2,4): "======== 



Computer Konlaki 4-5/87 



1020 DISPLAY AT(5,l):"EIrJGEGEBEIJER FARECODE 


" :: FDR 1-1 TO Al :: DISPLAY AT(7, 


I*3-2):R»(I>;: NEXT I 




1030 DISPLAY ATC10,1):"ERMITTELTE NORWREIHE 


"iTO* :: DISPLAY ATC12, 1) : "GEF. R : 


i040 DISPLAY ATfl5,l):"KL. R ; m \ (R-R*T1/100! 


"6": :"SR. R : "j CR+R*T1/100); "§" 


1050 IF AK6 THEN 1070 




1060 IF I*-"" THEN DISPLAY ATU9, 1) : "ALPHA : 




1070 DISPLAY AT(22,I)iW* 




1080 CALL J :: 6DTC 400 




1030 SUB P :: CALL SOJNDC400, 400,0) : : FDR B» 


TD 300 :: NEXT :: SUBEND 


1100 SUB J 




1110 DISPLAY ATC24,1):"WEITERE EERECHNUNG ? 




THEN 5UBEJIT 




1120 IF K=7S THEN CALL CLEAR :; END ELSE 111 




1 130 SUBEND 





Herrscher iiber Artoganien 






EATURE:Die Zcilc 



COMBAT-MODE 



hi .kI, in-, \(.\Gir:-MOi»b. Klei 
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: tui MARKS- ■" ilieseii! Halle Kar 

Anmcrkungen zi 



Vorprogramm 



100 RAND0MI7E :: CALL SCREEN<2>:: CALL CLEAR :: CALL MASNIFYC3) 

110 DATA 7E7E£67E7E6EE666,7C7EEG7C7CE67E7C,3E7EGOG0G0£07£3E,7C7E6666666&7E7C,7E7 

E607E7E£07E7E,7E7EE07C7C606060,3E7E60EE6E6£7E3C 

120 DATA G666&G7E7E666666, lBiaiB181BiaiBlS,06O£060&66£G7E3C,&G6E7C787B7C6E66,606 

060£060E07E7E,42EE7E7E6£6£66E£,8EC£E£F6DECEC6C2 

130 DATA 7E7E6S6666667E7E,7C7E667E7C&0£0£0,3C7E£66££E££7E3F,7C7E667E7C6C6£6G,3E7 

E607C3E0G7E7C, 7E7E 181 Bl B 1 BIB 1 B , &&666&&66&667E7E 

140 DATA 666&6e&&S63C3ClB,i:&i:6C6C6D6FEEEC6,6&663ClBlB3C&666,BlC36&3CI81B181B,7£7 

E060C1B307E7E 

150 DATA 0: 020303034 1673F3B310303O707070E40A0DOEBDOABD0E4BC9BCBE0E0FOFB3E 

160 DATA FFB0B0BOB08Qa080FFlB18iaiB000000FF01Q10101010101B08O80FBFBS080B0 

170 DATA OOOOOOOOOOOOOOOOOlOlOIlFlFOlOlOiBOBOBOaOBOaOBOFFOOOOOOIBlBIBlBFF 

1B0 DATA 0101010101O10IFF,0163E3C7nFFFFBE34FOE0ElElD3B707aE040C0C0OOB6BEBa0OB0BO 

COEOE07078 

190 DATA O000OOO000O000C1EFBFBDBC7AS&44E6O2040B387C7GF0FBFCFBF9090A1 

200 DATA 0OOO001F103F3A1D0603O.- ' 08E5B9FDC7CB87BF0E0COB0BO& 

210 DATA O3070F1B03OF3FO403IV7 | JG0OB0C0C0C0404X 

220 DATA 1F07830323071F3F77C757070FOF1F3F2AC5C2D5B282FAFFDBC2C2E2E0EOF0F 

230 DATA 0001071F070101030E3E33070607QE3EFBFC7BFOEOFB1C7CF00070F0703078F8 

240 DATA 0000001 F3FGF7E5E1 91 F1FEF464D0D1 8000 OOOCOBO 000008 Da FQFQ1 8 D89BF0EO 

250 D ATA 387C4 F4F5F3C7C7E 7 F&F&F4707030 1 0O00O00O80C0 F04 OOOOOOOSOCOFOFCFB 

260 DATA 0OQ702O202O01E3B6D7F1F37O70E1C70O080E0BO388C0CS4E4FCFCFCFE3E1C3B 

270 CALL CHAR<34,"&C&C&C ,, ,35,"EFEFDFC7F7EFC7EF" ( 3£, "0000000000010307070301000000 

OOOOOOOOOOOOOOBOCOEOEOCOSO" ) 

280 CALL CHAR(40,-82C6CEDEDED6C£C6FFFFFFFFFFFFFFFFFEFEOOFCFCCOFEFE',45,"C6C6B6DE 

DECEC£82" > 

290 CALL CHAR(4B, "0O3C7E427E7E3C000101O30307O70F0F1F1F3F3F7F7FFFFFFFFFFFFFFFFFFF 

FF") 



320 FQR 1=65 TD 90 :: READ C* :: CALL CHARU.C*):: NEXT I 

330 FGR 1=92 TO 140 STEP 4 :: READ C* ;: CALL CHARU.C*):: NEXT I 

340 DTSPLAY AT (3, 10): " <-* PRESENTS:" 

350 DISPLAY AT(10, 1):" 13341334134141413341314 2525252525 252525252325 " 

3£0 DISPLAY AT<12,1>:" 1334133414 133414141434 2525253 235252523352535' 

370 DISPLAY ATC21.3) : "COPYRIGHT BY MARC UALESSA" , , , " PRESS "-TIRE" TO BEGIN" 

380 FOR 1=1 TO 4 :: CALL SPRlTECIH, 104*1*4,2, 120, 1*51) : : NEXT I 

390 FOR 1=5 TO 9 :: CALL SPRITEtltl, 104+1*4,2, 45, 40+ (I-4)*37) : : NEXT I 

400 FOR 1=1 TO 9 : : CALL COLQRCI, 15,2) : : CALL CQLQR(#I,RND*13+3) : : NEXT I :: CAL 

L COL0R<2,6,2) 

410 CALL COLOR(3,INTCRND*13>+3,2):: CALL SOUNDC-300, ! 10*INT(RND*7+1) ,5, 1 101INT(P. 

ND*7+2),5> 

420 CALL KEYfl.K.S):: CALL KEYC2,Kl,5)i : IF K+K103S THEN 410 ELSE DISPLAY ATC23 

,1);"" 

430 FOR 1=1 T3 750 :: NEXT I :: CALL C0LDRC3, 15,2) : : CALL DELSPRITECALL): : CALL 

CLEAR :: CALL CHARC50, ,, 003C425A5A423C",51, "OOFE7C7C3B3B101") 

440 CALL CHARi!40,"00 , ,42, "00",45, ,, 00",49, n lB3B7B181BlBlBia",52,RPTtC ,, 0",64)) 

450 RUN "CS1.ARCH0N" 
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Hauptprogramm 

100 TSC1)=- BANISH CREATURE" :: T*(2)=" HEAL CREATURE" :: T*(3)=" CURSE CREATUR 
E" :: T*(4>=" APOCALYPSE" 

110 T*(5)="CHANG£ INFLUENCE- :, T*(E)=- TELEPORT" tl T*C7)=" CURSE AREA" :: 
T*(B)=" RELEASE AREA" 

120 A*C1)=" GOLAN" :: A*(2>=" UNICORN" tl A$<3)=" PHOENIX" II A»(4)=" MA 
RKSMAN" :: Ai(5)=" MAGICIAN" 
130 A*(E)=" BENCHIE" :: A*(7)="5NAKY DRAGON" ji A*(B)=" PHANTOM" :: A*(9)=" 

MUPCON" :: A*(10>=" ENCHANTRESS" 
140 RANDOMIZE :: CALL DELSPRITE(ALL): : CALL CLEAR :: CALL COLOR CI, 2, 2, 9, 2, 2, 10,2 

150 HfU-» :: MC2)=B :: Mf4)=16 (i M(5)=U :: N(E)=4 :: ZU,J=1 || ],V=3 :: DIM 

EN(26J,SP<2£>,G£(2£),XS(14:i,YS(14):: E1,E2,XC=21 :: YC=29 

1E0 B<1), 0(2), 0(3), 0(41=13 :: M(3), W(1),U(2) , WC3) ,UC4)=15 

170 FOR 1=3 TO 21 STEP 3 :: DISPLAY AT( 1,5) iRPT*C"ab",7) : : DISPLAY ATU + 1,5):RP 

TS<"cde",7>:: DISPLAY AT(l+2,5):RPT*("fah",7):: NEXT I 

ISO DISPLAY AT(l,12>:'ARCHaN" :: DISPLAY ATI 24, 9] : 'STRATEGY MODE" 

190 CALL C0LOR(5,15,2,e.,15,2,7,t5,;,G,I5,2,2,2,2,9,S,M(Y),10,E,M(V) 1 M(V) 2 2 1 

4,13,11,14,2,12,13,2) 

200 Z,C=0 :: FOR 1=2 TO 6 :: CALL SPRITEfltl, 10B»C, 14,45+Z,23): : C=C<-4 •■ Z=Z+24 

: : NEXT I 

210 TOR 1=7 TO 10 :: CALL BPRITEOU, 10S+C, 13, -75+Z.221):; C=C+4 :; Z=Z+24 ■■ NEX 

T I 

220 CALL SPRIT£(K11, 92,13, -75+Z, 221, *1,£0,5,XC, YC) : : IF U02E THEN 250 

230 FOR 1 = 12 TO 25 :: IF SP(I)>104 AND SP< 1X128 THEN CALL C8LHKM. 141ELSE IF S 

P(I)>124 OR SPCI>«92 THEN CALL C0LOR(#I,13) 

240 NEXT I 

250 DISPLAY AT(24,9)i"5TRATESY MODE" :: IF R<6 THEN 310 

2G0 R=0 :: FOR T=l TO 4 :: DISPLAY AT(G(T) ,W(T) >SIZEU>: "d" :: NEXT 



270 0(1 J 



>>=Q<2)+1 :: W<2)=W(2)-T r: S(3)=Q<3)-] : 



(31=W'3H-J :: G(4)=QC4)~] :: U(4)=fc 

2B0 IF 0(1)=22 OR 0(1)=4 THEN I=-T 

290 V=V+ZU :: IF V>& THEN V=5 :: ZU=-ZU ELSE IF U<1 THEN V=2 :: ZU=-ZU 

300 CALL COLOR(1,M(V),2,9,E,H<V),10,6,MCV)) 

310 FOR T=l TO 4 :: DISPLAY AT(QCT) ,UiT>)SIZE(l): »#" :: NEXT T 

320 CALL GCHAR(*;i/B+l,Yl/8-H,H):: IF H=35 AND J=2 THEN El=El+2 ELSE IF H=35 AND 

J=i THEN E2=E2+2 

330 E1=MAX(0,MIN<E1,21)):: B 

340 CALL VCHAR(1,3,32,22-E1): 

,E1):: CALL VCHAR(24-E2,31,4( 

350 FOR 1=12 TO 25 :: GE(I)=SECI)-1 :: NEXT I :: IF E2<1 OR EK1 THEN 950 

360 XC=21 :: YC=29* < J-l )*192 :: CALL C0LDR(#1,J*7-2)j: CALL LOCATE C#l , XC, YC) 

370 CALL JOYST(J,X,Y) ! : XC=XC-Y*£ :: YC=YC+X*S :: XC=HAX(21,MIN(XC, 1G5)): : YC=MA 

X(29,MIN(YC,221>):: CALL LOCATE (#1, XC, YC) 

380 CALL 1!EY(J,K,S):: IF S=0 THEN 370 ELSE CALL POSITION!*!, XI, YD: : IF GOO THE 

330 FOR 1-2 TO 25 :: CALL CDINC«l,ttI, 1,C): : IF C AND SECIXJ THEN 410 

400 NEXT I :: CALL SOUND (-200, 220, 0) : : GOTO 370 

410 iJ=i04+(I-I)*4 :: IF 1=11 THEN 0=92 ELSE IF IM1 THEN G=SP(I) 

420 IF (J=2 AND GM04 AND G<128)0P(J=1 ANDf C-,: !24 OR Q-aaHWES CALL S0UND(-200 2 

20,0):: G=0 : : GOTO 370 

430 A=(S-104)/4 ;: IF 0=92 THEN A=10 

440 DISPLAY AT(24,9): AtCA): : V2=Y1 :: X2=X1 :: CALL SDUND( -200, 930,0) : : IF SP(I) 

=124 OR SPII)=92 THEN 550 ELSE 370 

450 IF Y2C40 OR Y2>200 THEN IF ABS(Y2-Y1)>60 OR YK40 OR Yl >200 THEN CALL SOUND( 

-200,220,0):: GOTO 370 ELSE 470 

460 CALL DISTANCED!, X2,Y2,D):: IF YK40 OR YI >200 OR D>2305 THEN CALL S00ND(-20 
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0,220,01:: GOTO 370 

470 R=R+2 : : J=J+1 : : IF J=3 THEN J=l 

480 IF Y2<40 THEN F=14 :: El=El-3 :: GOTO 530 ELSE IF Y2>200 THEN F=i3 :: £2=E2- 
3 : i GOTO 530 

490 CALL LQCATEdH.Kl.Vl):: G=0 :: CALL SDUNDt-200, 990,0) 

500 CALL P0SITI0N(#I,m,U2):: IF I t (Ul-21)/24+I)=l THEN CALL PATTERNCIH,52)ELBE 
CALL PATTERNCtfI,SPm> 

510 FOR T=12 TO 25 :: CALL COINCCtH.ItT, i,C) : : IF C AND IOT THEN 1090 
520 NEXT T ;: GOTO 250 

530 FDR 1=12 TO 25 :: IF SPtI)=0 THEN CALL SFRITEfttl ,G,F,X1, YD; : ENtI)=21 :: SP 
C»"fl :: Y2.G-0 :: CALL SDUNDf-200,990,0): : GOTO 500 
540 NEXT I :: G=0 :: CALL SOUND! -200, 220, 0>* I GOTO 250 
550 T=0 :: T*(0)=" "1A»(A) 
560 CALL L0CATE(ttl,X2,Y2):; XC=X2 :: YC=Y2 

570 E1-MIN(E1,21):: E2=MIN(E2,21 ) : : E1=MAX(0,E1) i : E2=MAX<0,E2) 

580 CALL VCHAPCI,3,32,23-E1):: CALL VCHAR(1,31,32,23-E2>: : CALL YCHAR<24-E1,3,41 
,El)i: CALL VCHAR<24-E2,31,40,E2> 
590 IF E2<1 OP EK1 THEN 350 

600 CALL JOYST(J,X,Y):: IF Y=-4 THEN T=T+1 :: IF T>=9 THEN T=0 
610 DISPLAY AT(24,7):Tt(T):: CALL KEY(J,K,S>:: IF S=0 THEN 600 

620 CALL SOUNDt-200, 440,0):: IF TOO THEN 640 ELSE AN,K1=0 :: IF J=l THEN E1=E1- 
1 ELSE IF J=2 THEN E2=E2-1 
630 GOTO 370 
640 IF Kl=l THEN 560 

650 Kl = l :: DN T GOSUB 730,790, 750, ££0, El 0, Gilii", C7f!,'al0 :: GOTD 560 
660 IF J=l THEN El=El-5 ELSE IF J=2 THEN E2=E2-5 
670 FOR 12=12 TO 25 :; CALL pa5ITI0N(ttI2, X3, Y3) 

6B0 FOR 11 = 1 TO 4 :: IF [NT(X3/B>+2OBCn)0R INT(Y3/BK>W( IDTHEN 700 
6g0 IF J=l AND 5PU2)M04 AND SPU2X128 THEN AN=AN+1 ELSE IF J=2 ANDCSPCT2)>124 
OR SP (12) =92) THEN AN=AN+1 
700 CALL S0UND<5, -3,0):: NEXT II :: NEXT 12 :: IF AN=4 AND Of I)=QC3)THEN IF J=l 
THEN E1-MAXIE1.E2):: RETURN ELSE IF J=2 THEN E2=HAXCE1,E2): : RETURN 
710 IF AN=4 THEN IF J=l THEN E2=0 ELSE IF J=2 THEN El-0 
720 RETURN 

730 IF J=l THEN El=El-5 ELSE IF J=2 THEN E2=E2-5 

740 GOSUB 1050 :: IF C AND SF(I1K>124 AND SP(I1K>92 THEN SP(I1>=0 :: CALL DELS 
PRITEfttll):: CALL 50UND(-500, -5,5) : : RETURN ELSE RETURN 
750 IF J=l THEN EI=El-3 ELSE IF J=2 THEN E2-E2-3 

760 GOSUB 1050 :. IF C AMD SPCI1KM24 AND SPCIi)<>32 THEN GEtIl)=7 :: CALL BOON 
D<-999,-4,0> 
770 RETURN 

7B0 IF J=l THEN El=El-2 ELSE IF J=2 THEN E2=E2-2 
790 GOSUB 1050 :: IF C THEN EN<I1)=21 ELSE RETURN 

800 FOR 11 = 110 TD 660 STEP 20 :: CALL S0UND(-100, 1 1, 10, 11*2, 10): : NEXT II :: RET 
URN 

910 IF >1 THEN El=El-5 ELSE IF J=2 THEN E2=E2-5 
B20 CALL 5DUND(-500,-3,0)j: IU»-ZU i: 3"-] a RETURN 
830 IF J=l THEN El=El-3 ELSE IF J=2 THEN E2=E2-3 

B40 GOSUB 1050 :: IF C THEN SPR=I1 :; IF SP(SFRKM24 AND SP(SPRK>92 THEN GOSUB 
1050 :: IF C=0 AND Yil.MO AND «X2M THEN CALL LOCATE(#SPR, XC, YC) : : CALL SOUNDC- 
500,1600,0,300,0) 

850 CALL GCHARCXC/B-H,YC/S+l,H)i: IF H=35 AND J=l THEN EI=Et+2 ELSE IF H=35 AND 
J=2 THEN E2=E2+2 
B60 RETURN 

B70 IF J=l THEN El-El-2 ELSE IF J-2 THEN E2-E2-2 
SSO GOSUB 1050 :: CALL SOUNDt-900,880,2,870,2,B60,2) ; : CALL P0SITI0N(#1,U1,U2) : : 

f CCUl-21)/24+l)=l 
B90 FOR U=12 TO 25 :: CALL POSITIONS, Ul ,U2) : : IF SP(UK>0 AND [ (<Ul-21)/24+l)= 



1 THEN CALL PATTERN (tU, 521 

900 NEXT U :: RETURN 

910 IF J=l THEN El-El-3 ELSE I 

920 GCSUB 1050 :: CALL SDUNDC-900, 11C 

-2D/34*U-0 

930 FOR U-12 TO 25 It CALL FDSITION(« 

THEN CALL PATTERNOtU, SF(U>> 

940 NEXT U :: RETURN 

950 CALL DELBPRITE(*D:: FDR 1=1000 T 

,1-25,01:: NEXT 1 

960 FOR 1-12 TO 25 :: IF EKJ THEN IF 



IF SPCUJOQ AND I 



Jl-2: 



i: CCCUI 
>/24+I)= 



MO' 



: CALL C0L0Rt#SFR,T):: NEXT 



1 THEN C=13 :; ( 



970 IF E2<1 THEN IF SP1DM24 OR Of 
9S0 CALL SOUND(-500,-7,0):: FOR T< 

DELBPRITE(#SPR> 
990 SPR=0 :: NEXT I 

1000 IF EIO AND EKI THEN C=2 ELBE 
HEN C=14 :: C*="ONE" 

*0R 1-1 TO 2B :: CALL COLQR(#I,C): s NEXT I 
1020 IF EDO OR E2>0 THEN DISPLAY ATC24, 3) : "PLAYER "jC*;" 'S 
SPLAY AT(24,3):" NOONE IS THE WINNER" 
1030 FOR 1=1 TO 900 :: NEXT I :: DISPLAY AT124,3>:" PRESS " 

CALL KEYC1,K,S):: CALL KEYf 2,KI,S) : : IF K+KIOSG THEN 1 



CALL BQLMM-10,1,0 

:iK'12B THEN SPR=I 

:=I ELSE 990 



3 ELSE DISPLAY f 



24,1 



: RUN 



: YC=M 



-12J,YSrl 



MB ELSE I 



1050 CALL JOYST<J,X,Y):: XC-XC-Y*6 :: YC=YC+X*6 : 
AXr29,MIN(YC,221)):; CALL L0CATECH1 ,XC, YC) 

1060 CALL KEY(J,K,S):: IF S=0 THEN 1050 :: CALL SOUND (-200, 990,0) 
1070 FOR 11=12 TD 25 :: CALL COINC(#l,ttI 1, 1,C) : : IF C THEN RETURN 
10BO NEXT II :: RETURN 

DM04 AND SPCIK12B AND SF(T)>I04 AND SFCTXI2B THEN CALL BOUNDC-500 
,-3,0):: CALL DELSPRITE(ttT) : i 5P(T>=0 :: GOTO 250 

1100 IF (SP(I)>124 OR SPCD=92)AND<SP(T]>I24 OP SP(T>=92)THEN CALL S[lUND(-500,-3 
.0):: CALL DELSPRITEim : : SP(T1=0 :: GOTU 250 

CALL SOUNDf-990,-3,01:: FOR 11=12 TO 25 :: CALL F 
2)l:i NEXT II 
1120 IF J=l THEN Z=T :: T=I :: 1-7 

Z,Z1=0 ;: IF V'i THEN Z=10 ELSE IF V=2 THEN 7=5 
4 THEN Zl=3 ELSE IF V=4 THEN 11=5 ELSE 11=10 
1140 EN(I1=EN(I)+Z :: ENCT)=EN(T)+Z1 

>CT>=13G THEN F2=2 ELSE F2=13 
>(I)=116 THEN Fl-2 ELSE Fl=14 
1170 IF SP(I)=103 THEN 0=4 ELSE IF SPCDM12 THEN D=3 ELSE IF SP(I)-116 THEN 0=4 
ELSE IF BP(I)=120 THEN 0=4 ELSE IF SPU) = 124 THEN D=5 

HBO IF SP(T)=129 THEN L=4 ELSE IF SP(T)=132 THEN L=3 ELSE IF SPCT)=136 THEN L=4 
ELSE IF BP(T)=140 THEN L=4 ELSE IF SPCT>=92 THEN L=5 
1190 CALL DELSPRITE(ALL):: CALL CLEAR :: CALL CuLQR(9,2, 2, 10,2,21 : : C=RND :: IF 
C<,3 THEN C=4B ELSE IF C>.7 THEN C=50 ELSE 05I 

1200 FOR U=l TO 9 :: CALL HCHAR<RND*19+3,RND*20+5,C,RND*4+D : : CALL VCHAR(RND*15 
3,RND#24+5,C,RND*4'1):: NEXT U 

210 DISPLAY Km,i2»f**CWW" :: DISPLAY AT(24, 101 : "COMBAT MODE" 
;-20 CALL ACENO.I):: CALL B(ENO,T) 

230 CALL C0L0R<3,RND*9+3,2): I CALL SPPITE<tSl,5P(D ,F1, 90,50, S2,SR(T),F2, 90,200) 
1240 IF EJKIX1 OR ENtTXl THEN 1350 
1250 CALL J0YST(1,X,Y):: CALL J0YST(2,X1 , YD : : CALL MDTIONCM, Y*-0,X*0, »2, Yl*-L, 



3 CALL POSITION t#l,Ul,U2,«2,U3,U4 
NO, Hi I GOTO 1240 
1270 IF U3H77 THEN EN(Tl=ENtT)-2 :: CALL 



IF L 



>177 THEM E 



! =EN < I 



: CALL A 



Tl 99/4A 



12S0 CALL KEY(l,K,B)i: CALL KEY(2,K,S1) : : IF 5=0 THEN I 



300 IF SP 



S1O0 THEN 1 



CENO, 

310 CALL B<ENC),T>:: IF S1=0 THEN 1 

T)=12B THEN CALL UltENU 

T)=13E THEN CALL W3(ENC 

ENO,I> 

340 CALL A( 

350 IF EN<I 

360 TF ENH 

370 GOTO 1 

3B0 CALL MOTIONfitl.O.O.^.OjO):: FDR U=2 TO 16 :: CALL 5OUNE(-500,-7 ( O): : 
NEXT U :: CALL DELSPRITEfHA): : RETURN 
TO 250 :: NEXT U :: CALL CLEAR- :: CALL DELSFRITECALL): : IF J=l THEN 



330 FDR 
Z=T : i T. 
400 IF EN i 
410 IF EN i 
420 FDR !■ 



450 CALL C0INC(* 
0) 



] 1240 

: GOSUB 1380 
: GOSUB 13S0 



: CALL 



1X1 THEN SPn),XS(I-12>,YSCI-12)=0 
TX1 THEN SP<T),XSCT-12),YS<T-12)=0 
12 TO 25 :: IF SPCDOO THEN CALL SPRtTE«I,SF 



: GOSUB B90 :: GOTO 170 
It J,T>i i CALL S0UND(-75Q,-B,O): 
l,Y*-6, X*6) 



T)=EN 



FOR U=l TO 5 :: CALL JQYSTU.X, 
CALL BOUND (-200, 220, C 



.460 NEXT U II SUBEND 

.470 SUB 02(ENO,T):: ENfTl=EN(T)-l :: CALL SOUNDC-750, -4,0) : : SUBEND 

480 SUB Q3(EN(),T):: CALL COLORtttl, 14): : CALL SOUNDC-750, 440, 0,450,0, 460, 0) : : 
IR U=l TO 5 :: CALL JDYSTf 1, X, V): s CALL MOTIONdtl, Y*-5, X*5) 

490 CALL COINC(»l,»2,3,C):: IF C THEN EN(T)-EN<T)-2 :: CALL S0UND(-200, 220,0, 

JEXT U :: CALL CDL0R(ttl,2>: : SUBEND 
1510 SUB Q4[EN(),T);: CALL P0SITIONC!ll,A,B) : : CALL SOUNE(-5O0,-&,O,B80,5) : : CI 
TBYST<1,X,Y):: CALL SPRITE<«4,36, 12, A,B, Yt-25, X*25) 
1520 FOR 11=1 TO 7 :: CALL CDINC<tt4,#2,9,C) : : IF C THEN EN(T>=EN(T)-& j: U=9 :i 
ALL SOUND<-200, 220, 0,-3,0) 
1530 NEXT U :; CALL DELSPR I TE ( *4 >: : SUBEND 

■ SUB WHENO,!):: CALL 50UND(-750, B,0>:: FOR U-l TO 5 :: CALL JUYSTr2,X,> 
LL H0TIONC#2,Y*-£,X*6) 
CALL CDINC<il,*2,9,C)j: IF C THEN EN(I)=ENCI)-4 :: CALL SOUNDi-200, 220,0, 
0) 

560 NEXT U ; : SUBEND 

570 SUB W2(ENO,I):: EN(I)=ENCI>-1 :: CALL SUUNDt-750, -4,0) : : SUBEND 
5B0 SUB W3<EN(),I):: CALL CQLOR<«2, 13) : : CALL SOUNDr-730, 440,0, 450, 0, 4£rj,0) : : 
OR U=l TO 5 :: CALL J0Y5T(2, X, Y) : : CALL MOTIBN(ft2, Y*-5, X*5) 
590 CALL C0INC<#1,*2,9,C):: IF C THEN ENf I)=EN(I)-2 :: CALL S0UND(-200, 220,0, 

600 NEXT U :: CALL CQLOR<#2,2): : SUBEND 

£10 SUB W4(EN(),I):: CALL P0SITIONt*2, A, B) : : CALL SOUND(-5O0, -6,0,900, 5) : : Q 

J0YST(2,X,Y):: CALL 5PRITE«4,36, 12, A,B, Y*-25, X*25) 

:6:o FTJP U=l TD 7 :: CALL CaiNCt*4,lI,»,«ai IF C THEN EN<n=EN(I)-£ :: U=9 :; 
ALL BOUNDt-200, 220, 0,-3,0) 

NEXT U :; CALL DELSPR I TE ( #4 ) : : SUBEND 

640 SUB AtENO,!):: ENn)=NINf21,NAXC0,£NCI) )) : : CALL VCHARri,3,32,23-EN<I) ) i 
CALL YCHAR(24-EN(I),3,41,EN<n>:: SUBEND 
16S0 BUB B(EN(),T):: ENCT)=MINC21,MAX(0,EN(T) ) ) : : CALL VCHAR<1,31,32,23-EN(T> ! 

CALL VCHARC24-EN(T),31,40,EN(T)):: SUBEND 
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k r°Z™ita'" Sl ""'" 
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der fell forma lic- 
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rdigehend and. In 
















Dinttltratg crfDlgt 


pha". 


Uorm [15+3 wird 


OPTIONS 


idc definite An 


:,,iil ^nW^Te^ftt 


on Dwiinalsldkn 




ndieZplilengerun- 


RF.CALC 



n Z^itvcrl lskii BJh- 
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SSE.SC 
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afcU.pn^defi. 


FonnclTi m Fehlem (Uh 
nun die Bezllgc nich. 


Dies isl eine 




Anzahl 


crZellennderKopien 
u[Lrll S )M>wiedieUr- 


llnser Tip: Wem Si 


S^SESHf 


r^t 


Sff 
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LEAK) COMPUTER CENTRE 

Der grOBte TI-99/4A-Spezlallst In Holland lie- 
ferl jetzt auch nach Deutschland. 

Wlrvertretenu.a.: 

CorComp* Navarnne* Myarc * Miller Graphics ■ We- 

rjhatrorac*Atrorac 

Neti fOr Deutschland: 

TRIPLE TECH dm 39s.- 




1. UHR/KALENDER 

2. 64- K-PRINTER- PUFFER. Arbeitet ohne Pn 
auf alien Printem mit Parallel-AnsctiljG. 

3. SPEECH -SYNTH. -ANSCHLUSS. Die Platrr 
Speech Synth, jetst In der Peripherie-Box. 



as 



MUD DISK CONTROLLER C. 



• Schneller als Tl-Disk-Contraller 

• Karinbis4DS/DD-Laufwerkearistaijern 

• CorComp's beruhmter Diskmanager wird gratis 
mitgeliefert. 

• Neue Statements, die CorComp extra riinzugefiigthal 
CALL PEEK CALL POKE 
CALL PEEKV CALL POKEV DM 498.- 
CALLMOVEM CALLEXEC 




GENEVE Et n I b c S pi Hen pro duklo 

Als einzige (aubemalb USA) Joystrck-Adapter 

haben wir bereits einen Cartridge Expander 

Geneve-Testcbmputer im 80-Zelchen-Karte 

Haus iind sind begeistert. 12a-K-RAM-Frweitemng 

Fragen Sie - wir Informie- 255/51 2- K- RAM-Disk 



Albert Visser - Haagweg 1 6< 
__ NL-2281 AJ RYSWYK 
Lano COMPUTER CEMTRE Tel. 0031 /70/99 5757 
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Matrix-Rechnung: Die Inverse 






Inverse Matrizen 



I Sisghurgsr Str.lll * 

t 5000 Km In 21 * 

* Tel. 0221 - 8B4521 * 

t von 20 his 22 Uhr * 



260 

270 ! 



* Opt. 



Drut 



! ********************* 
290 CALL CLEAR :: ON WARNING NEXT 

300 DPUCKS="PI0" 

310 DIME '■###**#.*# ##«###. #«'■ 

320 IMAGE " »##**#.## HMM.tttt* 

330 CALL FARBE :: CALL CHARS :: DIM A(4,4> 

340 CALL WAHL(I):: ON I GOTO 360 , 660 , E-90 , 7 

350 CALL CLEAR :: END 

360 ! EINGABEROUTINE 

370 DISPLAY AT<£, 1) : "MATRIX - Aufbau i" !t DISPLAY AT<9,5) : "All A12 A13 A 

DISPLAY AT(10,5):"A21 A22 A23 A24" :: DISPLAY ATCU.5) : "A31 A32 A33 A34" 

LAY ATC12,5):"A41 A42 A43 A44" 

3B0 DISPLAY AT(14,5):"BiUe eingeben :" :: FCR 1=1 TO 4 STEP 1 :: FOR J=l 

TEP 1 :: DISPLAY ATU7,5):"A ";IjJ;"=" :: ACCEPT ATUB,5)YALIDATE(NUMERIC 



»-A<2,4)*A(4,3>:: X03=A(2, 



410 X04=ACl,3)*Ai 

3)*A(2,4)-ACV 

420 X07=A(3,2)*Ai 

2)*A(3,4)-A(2,4)1 

430 X10=AU,2)*Ai 

2)*A<2, " 

440 X13=A<3,2)*Ai 

2)*A(3,3)-AC2,3: 

450 X1&=A(1,2)*A 

2)*A(2,3)-A(1 

460 Bfl,l]=A 

2)*X05! 

1,3>=A' 

:moe;i 



,C4,4)-A 
*A(2,3) 



480 



(2,1 



=(-l!*i 



l,!)*X05 
) BC2,3)=C-l)t 

u3,imos 

J BC3,I)=A(2,I 



6*A< 
530 E 



4, 1J*X 
1,3) 



*a ; : , ; > 

",3)-A 
*A<3,2> 
,3>-A 
:2,2) 
*X01-A 

*X02-A' 

(2, ntxoi 



X05=A(1 


3 


*A< 


XOB=A (2 


2 


Mt 


X11=AU 


2 


*A< 


X14=A(2 


2 


m 


X17=A(1 


2 


*A< 



4,i.itX03 : 



*X02+C 

*XQ4+A(4,2>*X06 :: Btl,' 

A(3, 1)*XQ2+AC4, 1)*X03) : : 



AU,1'*X02-AC2, 1)*X04*A14,1)#X06):: EC 
«Q7-A<3,tm08tA<4,n*X09 :: BC3,2)-(- 
*X08HW2,1)*X10+AC4,1)*X12 :: B(3,4>»<- 
A(2,1)*X13-A<3,1)*X14+A<4, t)iX15):i BO 



l)*X14- 



(2,1): 



(16+A 



7+A(3,n*Xta 

540 DETA=A 

OTO 340 

550 ! DRUCKERAQ5GABE 

560 CALL CLS :: DISPLAY AT(7,5S : "DRUCKERNAME :" : 

EPT AT(3,1)SIZE(-35):DRUCK4 :: CALL CLS :: OPEN K 

:" :: FOR 1=1 TO 4 :: FOR J=l TO A :: PRINT i 

570 NEXT J 

580 PRINT Kt" :: NEXT I 

590 PRINT tit*" :: PRINT #1: '"': "TRANSPDNIERTE :": 
[ NEXT J 



,3)1 


: X06=AU, 


,2)i 


: X09=A<2, 


,2)1 


: X15=AC2, 


,2)1 


: X18=Afl, 



1 ) : DRUCK* : [ AGO 



: FDR 1=1 TD 4 :: FDR J=I 



' :: FOR 1=1 TO 4 : : FOR J=l TO 4 



"" :: NEXT I 

,ln :: PRINT #1: "": "ADJUNKTE : 

I, J),:: NEXT J 

"" u NEXT I 

"■' :: PRINT #1: " h : " DETERMINATE :";"" :: PRINT #1:«DET = ";DETA It 

: PRINT * Is"": "INVERSE :":"" :: FDR 1=1 TO 4 :: FOR J=l TD 4 :: PRI 
NT #1:BU,J)/DETA,:: NEXT J 
640 PRINT ft:" :; NEXT I 
£30 CLOSE #1 :: SOTO 340 
660 ! TRANSFONIERTE ANZ. 

670 DISPLAY AT(7,1): , 'TRANSF0NIERTE j" :: FDR 1 = 1 TD 4 :: DISPLAY AT((2*I)+B, 1] :U 
,1):: DISPLAY ATC C2*I>+9, 1) :USING 320:A(2, I>,A<4, 1) : :■ NEXT I 
: CALL CLS :: BOTO 340 

i ZEIGEN 

700 DISPLAY AT(7, 1):"ADJUNKTE : " : : FOR 1=1 TO 4 : : DISPLAY ATC<2*I!+S, 1):USING 
310:9(1, t),B<I, 3):: DISPLAY ATC(2*I)-t-9, 1) :USING 320:B(I,2) ,B< 1,4) : : NEXT I 
710 CALL KEYPAUSE :: CALL CLS :: 6DT0 340 
720 ■ ! DETEMINANTE 

730 DISPLAY AT(7, 1): "DETERMINANTS : " : : DISPLAY ATC9, 1): "det =";D£TA :: CALL KEY 
PAUSE : : CALL CLS : : GOTO 340 
740 ! INVERSE 

750 DISPLAY AT<7, 1): "INYERSE :" :: FOR 1=1 TD 4 : : DISPLAY AT( CI*2)+B, 1>:USING 3 
10:B(I,1)/DETA,B(I,3)/DETA :: DISPLAY ATC (I*2)+S, 1) :USINS 320:B(I,2>/DETA,BI1,4) 



600 PRINT 41 
610 PRINT ft 
: PRINT *1:B 
620 PRINT SI 



6B0 CALL 



Computer Kontakt 4-5/B7 



760 CALL KEYPAU5E :: CALL CLS :: GOTO 340 


770 END 


780 SUB CHARS 


790 CALL CHAR (97, "O000003BO43C443C0040407S4444447B0O000O3C4O404O3C"l 


300 CALL CHAR! 100, "0004M3'.:4444443i:00<:iao039447C403BOOOC10107C10101000003C44443CQ 


BIO 


CALL CHAR< 104, "004040784444444400 t000301QlQlQ3S000800i80S080B70004040444S704 


B44 




B20 


CALL CHAR(108, ,, 003010101010103B000000785454545400000078444444440000003844444 


43B 




B30 


CALL CHARtll2,"0000007B44447B400000003C44443C040000005C&04040400000003C403BO 


479 




840 


CALL CHARC116, "OOI0107C1010100C000000444444443C00000044444428100000004444545 


428 




850 


CALL CHAR(120, "000000442B102B440000 004 4442S10200000007C081 0207 C004 4003 B043C4 


860 


CALL CHAR<i24,"004400384444443B0044000Q4444443B003B44444844444B4000000000000 


000" ) 


870 CALL CHAFC96, ,, 000000FFFF",65, l '00i02844447C4444007B44447B444478 ,, 1 6B 1 ,, 0O7B4444 


44444478", 71, "003C40404C444438") 


BBO CALL CHARr77, n 0044&C5444444444004464544C4444440O3C44444444443S"):: CALL CHAR 


{Sl, ,, 0038444444444B3C",86, n 004444-l44444:fi!00044444444546C44") 


B90 CALL CHARf91,"00542844447C444400443B444444443B0O440O444444443B") 


WO SUBEND 


910 SUB UAHL(I) 


9-20 ! AU5UAHLLISTE FUER 


930 ! ON I BDTD 


940 DISPLAY AT(£, 1) : "Bitte tKhlen Sie:" :: DISPLAY AT(9,5>:"<1> Neu eingeben" : 


: DISPLAY AT(10,5) : :, <2> Ti-ansponierte" :: DISPLAY ATtll,!B't*<3> Adjunkte" It □ 


I5PLAY AT(12,5)["-:4> Determinant e" 


950 DISPLAY AT(13,5) : "<5> Inverse" :: DISPLAY AT(15,5>: "<7> Ausdruck" :: DISPL 


AY ATU7,5):"<9> ENDE" :: DISPLAY ATC20,5) : "Ihre Uahl ? 1" :: ACCEPT AT(20,2 


0>SnE<-UvALIDATE<"1234579">:I :: CALL CLS 


960 SUBEND 


970 SUB CLS 


9B0 : CLEAR SCREEN 


990 FDR R0W=5 TO 24 :: DISPLAY AKROW, 11 : "" :: NEXT ROW 


1000 SUBEND 


1010 SUB KEYPAUSE 


1020 ! WEITER MIT TASTE 


1030 DISPLAY AT(24,1]: ,, BITTE DRJCKEN SIE EINE TASTE" 


1040 CALL KEYCO,K,S):: IF S=0 THEN 1040 


1050 DISPLAY ATC24,1>:"" 


1060 SUBEND 


1070 SUB UAIT(X) 


1080 FCR TI«E=1 TO X :; ! ZEITSCHLEIFE 


1090 NEXT TINE 


1100 SUBEND 


1110 SUB FARBE 


1120 ! FARBE 


1130 FDR C8L=0 TO 14 :: CALL COLDR(CDL, 16,5): : NEXT COL 


1140 CALL SCREENfS) 


1150 SUBEND 


1160 SUB KDFF 


1170 DISPLAY AT(1,2):"TI 99er WORKSHOP RHEINLAND" :: DI5FLAY AT 1 2 , 2 ) : " FORMELSAMM 


LUNG MATHEMATIK" :: DISPLAY AT(3, 1): "19B6 Bernhard Beti FH Kiln" 




1190 SUBEND 
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Gn#gn&«. Ob wshi-m 



^A^. JOY PAINT '99 
Great Lakes Software 



TI-Software-Hitparade 



L Tl-Artistn 

2. JOYpaint99 

3. AxelF. 

4. War Games 

5. Monopoly (CK) 
A. DM1000 3.5 

7. Hitchhikers Guide.. 

8. Micro Pinballll 

9. Super Disk Caialoger ( ) 
10. Turbo PascW (-) 

AudicuienGewinncrhabenwirermiltelt.F_rt 
immei ein Sul Lware-Patet friscli aus den USA 
Hum Rach, Bruchslr. 49, 5J72 Sdileideii 1. 
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A.AS 
PS 
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Keine Chance 




Wir brauchen Plata-*-^"""*^ 

Deshalb verkauf en wiralleCK-Softwareauf dieserSeitefiir 10.- DM. 
Ja richtig, zehn Deutsche Mark. 



Texas Instruments 99/4A 

Burglar Tims (IS/84). Cowboy (13/84), Desert Hlght(9/S4).Fass 
kb!-?it-: <:■-::.,. -a-o-tui ■•-.- .,a.v.. ; .-,,.:iM, :■.:.■ ,.-..; -; 
Novu-MaUago (1/85). Pi 



idlagramrti (5/65). Colon 



■barse (3/84). Bluer 
Ik (3/ae). Tl-Partrt (3, 






Atari 400/600/800 XL 

(Z/B5), Mlnl-Mckfllmstuclis C/85), Roily Dolly (11/84). 'Musi 
:.:■:■ 



SINCLAIR Spectrum 

=-.ir,i,:n.,--r.5:ottef.nichr),PvFomias(7/84).SUBBrtiimW84).Dio~er 
: 34). GroGe Bucnstaben (10/84). 

-.■■■■.'.... 
Kriimslmonsler (1/85). Foil L'S (1/85) 
8.H.-N. SI 
Pume (4/85). Sorites mil Demo (5/85). Dais (5/85). Uhi (7/85). 

Catalog (1/86). Sdllalrs (1/85). RIBoutlne (2/85). Cninpuler Figures 

(2/85). Ku BemB (2-B5). Sterngrofil .-; 0'; Mm,- Tram 'fj" 
Senso(4/S5) 

ScnameiBI (5/86). SpeclrNm-lnlosyslem (5/85), Cowboy (6/85) 
"ore,'! D.eam .;6,85,i. Jurje i/,.-8S) s-uroe-a miner (4/tJS), 

Palm (S/85), Window (0/85), 3-D-Plotter (10/85), Superiist (10/86) 
■. ■ ■■ : IJ ;■■:■; 

Hollenstijrz (1/(6), The Servonl (1/B6), Snoke-Smasfier (3/86), (Ms, 
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Das unabhangige Magazin fiir alle Ataris 




